Changeset 80 for branches/Transpascal/Compiler/Produce/UProducerGCCC.pas

Timestamp:

Oct 22, 2010, 3:39:58 PM (14 years ago)

Author:

george

Message:

• Modified: Better parse righ assignment side with expression.

File:

• branches/Transpascal/Compiler/Produce/UProducerGCCC.pas (modified) (1 diff)

branches/Transpascal/Compiler/Produce/UProducerGCCC.pas

@@ -281 +281 @@
     end;
     ntVariable: Result := Expression.Variable.Name;
-    ntFunction: Result := Expression.Method.Name;
+    ntFunction: Result := Expression.FunctionCall.Name;
     ntOperator: begin
       Result := GenerateExpression(TExpression(Expression.SubItems.First))