Changeset 68 for trunk/Compiler/Target/Dynamic C/UProducerDynamicc.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/Target/Dynamic C/UProducerDynamicc.pas (modified) (5 diffs)

trunk/Compiler/Target/Dynamic C/UProducerDynamicc.pas

@@ -18 +18 @@
     function TranslateOperator(Name: string): string;
     procedure GenerateUses(UsedModules: TUsedModuleList);
-    procedure GenerateModule(Module: TModule);
+    procedure GenerateModule(Module: TSourceModule);
     procedure GenerateCommonBlock(CommonBlock: TCommonBlock;
       LabelPrefix: string);
@@ -38 +38 @@
   public
     procedure AssignToStringList(Target: TStringList); override;
-    procedure Produce(Module: TModule); override;
+    procedure Produce(Module: TSourceModule); override;
     constructor Create;
     destructor Destroy; override;
@@ -96 +96 @@
 end;
 
-procedure TProducerDynamicC.GenerateModule(Module: TModule);
+procedure TProducerDynamicC.GenerateModule(Module: TSourceModule);
 begin
   if Module is TModuleProgram then begin
@@ -133 +133 @@
 end;
 
-procedure TProducerDynamicC.Produce(Module: TModule);
+procedure TProducerDynamicC.Produce(Module: TSourceModule);
 begin
   inherited;
@@ -147 +147 @@
   with ProgramBlock do
   for I := 0 to Modules.Count - 1 do
-    GenerateModule(TModule(Modules[I]));
+    GenerateModule(TSourceModule(Modules[I]));
 end;