Changeset 14 for branches/DelphiToC/UAssemblerSource.pas

Timestamp:

Apr 9, 2009, 11:04:41 AM (16 years ago)

Author:

george

Message:

• Opraveno: Chyby v uvolňování paměti.
• Opraveno: Program po rozdělení do více souborů opět funguje jako dříve.

File:

• branches/DelphiToC/UAssemblerSource.pas (modified) (4 diffs)

branches/DelphiToC/UAssemblerSource.pas

@@ -25 +25 @@
 
   TAssemblerProducer = class(TCodeProducer)
-    AssemblyCode: TList; // TList<TAssemblerLine>
-    destructor Destroy; override;
   private
     procedure AddInstruction(LabelName, Instruction, Operand1,
@@ -33 +31 @@
     procedure GenerateExpression(Expression: TExpression; LabelPrefix: string);
     procedure GenerateProgram(ProgramBlock: TProgram);
+  public
+    AssemblyCode: TList; // TList<TAssemblerLine>
+    procedure Produce; override;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -95 +98 @@
 end;
 *)
+
+constructor TAssemblerProducer.Create;
+begin
+  AssemblyCode := TList.Create;
+end;
 
 destructor TAssemblerProducer.Destroy;
@@ -177 +185 @@
 end;
 
-
-
+procedure TAssemblerProducer.Produce;
+begin
+  inherited;
+  GenerateProgram(ProgramCode);
+end;
 
 end.