Changeset 68 for trunk/Compiler/UCompiler.pas

Timestamp:

Jul 30, 2012, 3:52:56 PM (12 years ago)

Author:

chronos

Message:

• Added: Addon modules support.
• Modified: Restored usage of URegistry unit.

File:

• trunk/Compiler/UCompiler.pas (modified) (2 diffs)

trunk/Compiler/UCompiler.pas

@@ -221 +221 @@
 procedure TCompiler.ProduceAll;
 var
-  NewModule: TModule;
+  NewModule: TSourceModule;
   ProducedCode: TStringList;
   I: Integer;
@@ -231 +231 @@
     with AbstractCode do
     for I := 0 to Modules.Count - 1 do begin
-      Target.Producer.Produce(TModule(Modules[I]));
+      Target.Producer.Produce(TSourceModule(Modules[I]));
       Target.Producer.AssignToStringList(ProducedCode);
-      TargetFileName := TargetFolder + DirectorySeparator + TModule(Modules[I]).TargetFile;
+      TargetFileName := TargetFolder + DirectorySeparator + TSourceModule(Modules[I]).TargetFile;
       if Assigned(Target.Producer.OnWriteTarget) then
         Target.Producer.OnWriteTarget(TargetFileName, ProducedCode.Text);