Changeset 6 for trunk/Compiler/Produce/UProducerGCCC.pas

Timestamp:

Nov 5, 2010, 11:31:04 AM (14 years ago)

Author:

george

Message:

• Added: Typecasting support.
• Fixed: Function call in expressions.
• Added: Producer module specify generated file name, extension and placing.

File:

• trunk/Compiler/Produce/UProducerGCCC.pas (modified) (3 diffs)

trunk/Compiler/Produce/UProducerGCCC.pas

@@ -55 +55 @@
 begin
   TextSource := TStringList.Create;
-  FileExtension := '.c';
   IndentationLength := 2;
 end;
@@ -119 +118 @@
 procedure TProducerGCCC.GenerateModule(Module: TModule);
 begin
+  Module.TargetFile := Module.Name + '.c';
   EmitLn('#include "platform.h"');
   EmitLn;
@@ -281 +281 @@
     end;
     ntVariable: Result := Expression.Variable.Name;
-    ntFunction: Result := Expression.FunctionCall.Name;
+    ntFunction: Result := Expression.FunctionCall.FunctionRef.Name;
     ntOperator: begin
       Result := GenerateExpression(TExpression(Expression.SubItems.First))