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

trunk/Compiler/Target/Delphi/UProducerPascal.pas

@@ -16 +16 @@
   private
     procedure GenerateUses(UsedModules: TUsedModuleList);
-    procedure GenerateModule(Module: TModule);
-    procedure GenerateUnit(Module: TModule);
-    procedure GenerateLibrary(Module: TModule);
-    procedure GeneratePackage(Module: TModule);
+    procedure GenerateModule(Module: TSourceModule);
+    procedure GenerateUnit(Module: TSourceModule);
+    procedure GenerateLibrary(Module: TSourceModule);
+    procedure GeneratePackage(Module: TSourceModule);
     procedure GenerateType(AType: TType; AssignSymbol: Char = ':');
     procedure GenerateTypes(Types: TTypeList);
@@ -43 +43 @@
   public
     procedure AssignToStringList(Target: TStringList); override;
-    procedure Produce(Module: TModule); override;
+    procedure Produce(Module: TSourceModule); override;
     constructor Create;
     destructor Destroy; override;
@@ -94 +94 @@
 end;
 
-procedure TProducerPascal.GenerateModule(Module: TModule);
+procedure TProducerPascal.GenerateModule(Module: TSourceModule);
 begin
   Module.TargetFile := Module.Name + '.pas';
@@ -113 +113 @@
 end;
 
-procedure TProducerPascal.GenerateUnit(Module: TModule);
+procedure TProducerPascal.GenerateUnit(Module: TSourceModule);
 begin
   EmitLn('unit ' + TModuleUnit(Module).Name + ';');
@@ -127 +127 @@
 end;
 
-procedure TProducerPascal.GenerateLibrary(Module: TModule);
-begin
-
-end;
-
-procedure TProducerPascal.GeneratePackage(Module: TModule);
+procedure TProducerPascal.GenerateLibrary(Module: TSourceModule);
+begin
+
+end;
+
+procedure TProducerPascal.GeneratePackage(Module: TSourceModule);
 begin
 
@@ -196 +196 @@
 end;
 
-procedure TProducerPascal.Produce(Module: TModule);
+procedure TProducerPascal.Produce(Module: TSourceModule);
 var
   I: Integer;
@@ -206 +206 @@
   with Module.ParentProgram do
   for I := 0 to Modules.Count - 1 do
-    if TModule(Modules[I]).Name = 'System' then
-      TModule(Modules[I]).Name := 'System2';
+    if TSourceModule(Modules[I]).Name = 'System' then
+      TSourceModule(Modules[I]).Name := 'System2';
 
   GenerateModule(Module);