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

trunk/Compiler/UCompiler.pas

@@ -73 +73 @@
   ProducedCode: TStringList;
   I: Integer;
+  TargetFileName: string;
 begin
   try
@@ -81 +82 @@
     //ShowMessage(IntToHex(Integer(Addr(Parser.OnGetSource)), 8));
     Parser.ParseModule(ProgramCode);
-    for I := 0 to ProgramCode.Modules.Count - 1 do begin
-      Producer.Produce(TModule(ProgramCode.Modules[I]));
+    with ProgramCode do
+    for I := 0 to Modules.Count - 1 do begin
+      Producer.Produce(TModule(Modules[I]));
       Producer.AssignToStringList(ProducedCode);
-      ForceDirectories(TargetFolder + DirectorySeparator +
-        CompiledFolder + DirectorySeparator + Producer.ClassName);
-      ProducedCode.SaveToFile(TargetFolder + DirectorySeparator +
+      TargetFileName := TargetFolder + DirectorySeparator +
         CompiledFolder + DirectorySeparator + Producer.ClassName +
-        DirectorySeparator + TModule(ProgramCode.Modules[I]).Name + Producer.FileExtension);
+        DirectorySeparator + TModule(Modules[I]).TargetFile;
+      ForceDirectories(ExtractFileDir(TargetFileName));
+      ProducedCode.SaveToFile(TargetFileName);
     end;
   finally