Changeset 46 for branches/DelphiToC/Analyze/UPascalParser.pas

Timestamp:

Aug 9, 2010, 11:22:45 AM (14 years ago)

Author:

george

Message:

Added pascal producer code.
Added selection combobox for producer type.

File:

• branches/DelphiToC/Analyze/UPascalParser.pas (modified) (3 diffs)

branches/DelphiToC/Analyze/UPascalParser.pas

@@ -95 +95 @@
 
     // Recovery: try to find nearest same code
-    while FNextToken <> Code do
+    while (FNextToken <> Code) and (FNextTokenType <> ttEndOfFile) do
       GetNextToken;
   end;
@@ -482 +482 @@
         ErrorMessage(SUnknownIdentifier, [ReadCode]);
       end;
-    end else begin
+    end else
+    if FNextToken = ';' then
+    else begin
       Result := nil;
       ErrorMessage(SIllegalExpression, [ReadCode]);
@@ -576 +578 @@
   with SourceCode do begin
     Expect('begin');
-    while FNextToken <> 'end' do begin
+    while (FNextToken <> 'end') and (FNextTokenType <> ttEndOfFile) do begin
       Commands.Add(nil);
       NewCommand := ParseCommand(CommonBlock);