Changeset 43 for branches/DelphiToC/UPascalCompiler.pas

Timestamp:

Aug 5, 2010, 4:17:18 PM (14 years ago)

Author:

george

Message:

End parsing process on reaching data end.

File:

• branches/DelphiToC/UPascalCompiler.pas (modified) (1 diff)

branches/DelphiToC/UPascalCompiler.pas

@@ -33 +33 @@
 begin
   Parser.CodePosition := 1;
-  TParserProgram.Parse(Parser, ProgramCode);
+  try
+    TParserProgram.Parse(Parser, ProgramCode);
+  except
+    on EEndOfData do ;
+  end;
   Producer.Produce;
 end;