Changeset 75 for trunk/Compiler/Modules/ASM8051

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Compiler/Modules/ASM8051

Files:

• ProducerASM8051.pas (moved) (moved from trunk/Compiler/Modules/ASM8051/UProducerASM8051.pas ) (4 diffs)
• TargetASM8051.pas (moved) (moved from trunk/Compiler/Modules/ASM8051/UTargetASM8051.pas ) (3 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';

trunk/Compiler/Modules/ASM8051/TargetASM8051.pas

@@ -1 @@
-unit UTargetASM8051;
-
-{$mode Delphi}{$H+}
+unit TargetASM8051;
 
 interface
 
 uses
-  Classes, SysUtils, UTarget;
+  Classes, SysUtils, Target;
 
 type
@@ -16 +14 @@
   end;
 
+
 implementation
 
@@ -22 +21 @@
 constructor TTargetASM8051.Create;
 begin
-  inherited Create;
+  inherited;
   SysName := 'ASM8051';
   Name := 'ASM8051';