Changeset 75 for trunk/Compiler/Modules/ASM8051/ProducerASM8051.pas

Timestamp:

Jun 4, 2024, 12:22:49 AM (4 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Modified: Updated Common package.

File:

• trunk/Compiler/Modules/ASM8051/ProducerASM8051.pas (moved) (moved from trunk/Compiler/Modules/ASM8051/UProducerASM8051.pas ) (4 diffs)

trunk/Compiler/Modules/ASM8051/ProducerASM8051.pas

@@ -1 @@
-unit UProducerASM8051;
-
-{$MODE Delphi}
+unit ProducerASM8051;
 
 interface
@@ -7 +5 @@
 uses
   SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, USourceCodePascal, UProducer, Contnrs;
+  Dialogs, SourceCodePascal, Producer, Generics.Collections;
 
 type
@@ -37 +35 @@
     procedure GenerateModule(Module: TSourceModule);
   public
-    AssemblyCode: TObjectList; // TList<TAssemblerLine>
+    AssemblyCode: TObjectList<TAssemblerLine>;
     procedure AssignToStringList(Target: TStringList); override;
     procedure Produce(Module: TSourceModule); override;
@@ -107 +105 @@
 constructor TProducerAsm8051.Create;
 begin
-  AssemblyCode := TObjectList.Create;
+  AssemblyCode := TObjectList<TAssemblerLine>.Create;
   {$IFDEF Windows}
   CompilerPath := 'c:\ASM8051\ASM51.EXE';