Changeset 80 for branches/Transpascal/Compiler/Produce

Timestamp:

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

Author:

george

Message:

• Modified: Better parse righ assignment side with expression.

Location:

branches/Transpascal/Compiler/Produce

Files:

• UProducerAsm8051.pas (modified) (1 diff)
• UProducerDynamicC.pas (modified) (1 diff)
• UProducerGCCC.pas (modified) (1 diff)
• UProducerPascal.pas (modified) (1 diff)
• UProducerTreeView.pas (modified) (1 diff)

branches/Transpascal/Compiler/Produce/UProducerAsm8051.pas

@@ -155 +155 @@
     ntNone: ;
     ntVariable: if Assigned(Variable) then AddInstruction('', 'GETVAR', Variable.Name, '');
-    nTFunction: AddInstruction('', 'CALL', Method.Name, '');
+    nTFunction: AddInstruction('', 'CALL', FunctionCall.Name, '');
     ntConstant: AddInstruction('', 'CONST', '', '');
     ntOperator: begin

branches/Transpascal/Compiler/Produce/UProducerDynamicC.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))

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))

branches/Transpascal/Compiler/Produce/UProducerPascal.pas

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

branches/Transpascal/Compiler/Produce/UProducerTreeView.pas

@@ -152 +152 @@
     ntConstant: NewNode := TreeView.Items.AddChild(Node, Expression.Value);
     ntVariable: NewNode := TreeView.Items.AddChild(Node, Expression.Variable.Name);
-    ntFunction: NewNode := TreeView.Items.AddChild(Node, Expression.Method.Name);
+    ntFunction: NewNode := TreeView.Items.AddChild(Node, Expression.FunctionCall.Name);
     ntOperator: begin
       NewNode := TreeView.Items.AddChild(Node, Expression.OperatorName);