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

trunk/Compiler/Target/ASM8051/UProducerASM8051.pas

@@ -35 +35 @@
     procedure GenerateExpression(Expression: TExpression; LabelPrefix: string);
     procedure GenerateProgram(ProgramBlock: TProgram);
-    procedure GenerateModule(Module: TModule);
+    procedure GenerateModule(Module: TSourceModule);
   public
     AssemblyCode: TObjectList; // TList<TAssemblerLine>
     procedure AssignToStringList(Target: TStringList); override;
-    procedure Produce(Module: TModule); override;
+    procedure Produce(Module: TSourceModule); override;
     constructor Create;
     destructor Destroy; override;
@@ -189 +189 @@
 //  with ProgramBlock do
 //  for I := 0 to Modules.Count - 1 do
-//    GenerateCommonBlock(TModule(Modules[I]), '');
-end;
-
-procedure TProducerAsm8051.GenerateModule(Module: TModule);
+//    GenerateCommonBlock(TSourceModuleTSourceModule(Modules[I]), '');
+end;
+
+procedure TProducerAsm8051.GenerateModule(Module: TSourceModule);
 begin
   Module.TargetFile := Module.Name + '.asm';
@@ -207 +207 @@
 end;
 
-procedure TProducerAsm8051.Produce(Module: TModule);
+procedure TProducerAsm8051.Produce(Module: TSourceModule);
 begin
   GenerateModule(Module);