Changeset 54 for branches/DelphiToC/Produce/UProducerAsm8051.pas

Timestamp:

Aug 10, 2010, 11:54:18 AM (14 years ago)

Author:

george

Message:

Added support for multiple source files and compilations for multiple modules in Project.pas

File:

• branches/DelphiToC/Produce/UProducerAsm8051.pas (modified) (3 diffs)

branches/DelphiToC/Produce/UProducerAsm8051.pas

@@ -26 +26 @@
   end;
 
+  { TProducerAsm8051 }
+
   TProducerAsm8051 = class(TProducer)
   private
@@ -33 +35 @@
     procedure GenerateExpression(Expression: TExpression; LabelPrefix: string);
     procedure GenerateProgram(ProgramBlock: TProgram);
+    procedure GenerateModule(Module: TModule);
   public
     AssemblyCode: TList; // TList<TAssemblerLine>
-    procedure Produce; override;
+    procedure Produce(Module: TModule; ProducedCode: TStringList); override;
     constructor Create;
     destructor Destroy; override;
@@ -189 +192 @@
 end;
 
-procedure TProducerAsm8051.Produce;
-begin
-  GenerateProgram(ProgramCode);
+procedure TProducerAsm8051.GenerateModule(Module: TModule);
+begin
+
+end;
+
+procedure TProducerAsm8051.Produce(Module: TModule; ProducedCode: TStringList);
+begin
+  GenerateModule(Module);
 end;