Changeset 15 for branches/Void/UCompilator.pas

Timestamp:

Nov 10, 2009, 9:11:50 AM (15 years ago)

Author:

george

Message:

• Přidáno: Kostra zobrazování strukturálního stromu.
• Upraveno: Zobrazení kódu pomocí SynEditu namísto Memo.

File:

• branches/Void/UCompilator.pas (modified) (2 diffs)

branches/Void/UCompilator.pas

@@ -150 +150 @@
           with TCommand(Commands[Commands.Add(TCommand.Create)]) do begin
             Name := CommandName;
-            Parser.ParseNextToken;
             if Command.Parameters.Count > 0 then begin
+              Parser.ParseNextToken;
               if (Parser.TokenType = ttSymbol) and (Parser.TokenValue = '(') then begin
                 Parser.ParseNextToken;
@@ -227 +227 @@
       end;
       Parser.ParseNextToken;
+      if (Parser.TokenType <> ttSymbol) and (Parser.TokenValue = ';') then
+        DoError('Expected ;');
+      Parser.ParseNextToken;
       if Parser.TokenType <> ttWhiteSpace then DoError('Expected white space');
     end else DoError('Expected identifier');