Changeset 6 for trunk/Compiler/Produce/UProducerPascal.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/UProducerPascal.pas (modified) (3 diffs)

trunk/Compiler/Produce/UProducerPascal.pas

@@ -51 +51 @@
 begin
   IndentationLength := 2;
-  FileExtension := '.pas';
   TextSource := TStringList.Create;
 end;
@@ -88 +87 @@
 procedure TProducerPascal.GenerateModule(Module: TModule);
 begin
+  Module.TargetFile := Module.Name + '.pas';
   if Module is TModuleProgram then
   with TModuleProgram(Module) do begin
@@ -320 +320 @@
       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))