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

trunk/Compiler/Target/GCC/UProducerGCC.pas

@@ -20 +20 @@
     procedure EmitLn(AText: string = '');
     procedure GenerateUses(UsedModules: TUsedModuleList);
-    procedure GenerateModule(Module: TModule);
+    procedure GenerateModule(Module: TSourceModule);
     procedure GenerateCommonBlock(CommonBlock: TCommonBlock;
       LabelPrefix: string);
@@ -43 +43 @@
     Indetation: Integer;
     procedure AssignToStringList(Target: TStringList); override;
-    procedure Produce(Module: TModule); override;
+    procedure Produce(Module: TSourceModule); override;
     constructor Create;
     destructor Destroy; override;
@@ -122 +122 @@
 end;
 
-procedure TProducerGCCC.GenerateModule(Module: TModule);
+procedure TProducerGCCC.GenerateModule(Module: TSourceModule);
 begin
   Module.TargetFile := Module.Name + '.c';
@@ -138 +138 @@
 end;
 
-procedure TProducerGCCC.Produce(Module: TModule);
+procedure TProducerGCCC.Produce(Module: TSourceModule);
 begin
   inherited;
@@ -152 +152 @@
   with ProgramBlock do
   for I := 0 to Modules.Count - 1 do
-    GenerateModule(TModule(Modules[I]));
+    GenerateModule(TSourceModule(Modules[I]));
 end;