Changeset 57 for trunk/Compiler/Analyze

Timestamp:

Jul 16, 2012, 4:11:47 PM (12 years ago)

Author:

chronos

Message:

• Modified: Testing interpretter.

File:

• trunk/Compiler/Analyze/UAnalyzerPascal.pas (modified) (2 diffs)

trunk/Compiler/Analyze/UAnalyzerPascal.pas

@@ -150 +150 @@
           ReadToken;
         end;
+        ShowMessage(IntToStr(TExpression(Expressions.Last).SubItems.Count) + ' ' + TExpression(Expressions.Last).OperatorName);
+        if Assigned(TExpression(Expressions.First)) then
+          ShowMessage('First ' + IntToStr(Integer(TExpression(Expressions.Last).SubItems.First)));
+        if Assigned(TExpression(Expressions.Last)) then
+          ShowMessage('Last ' + IntToStr(Integer(TExpression(Expressions.Last).SubItems.Last)));
       end;
 
@@ -169 +174 @@
         Assign(TExpression(TExpression(Expressions.First).SubItems.Last));
       TExpression(Expressions.First).SubItems.Last := nil;
-      //ShowMessage(IntToStr(Expressions.Count));
       if Expressions.Count > 1 then
         TExpression(Expressions[1]).SubItems.First := nil;