Changeset 75 for trunk/Compiler/Modules/GCC

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/GCC

Files:

• ModuleGCC.pas (moved) (moved from trunk/Compiler/Modules/GCC/UModuleGCC.pas ) (3 diffs)
• ProducerGCC.pas (moved) (moved from trunk/Compiler/Modules/GCC/UProducerGCC.pas ) (7 diffs)
• TargetGCC.pas (moved) (moved from trunk/Compiler/Modules/GCC/UTargetGCC.pas ) (2 diffs)

trunk/Compiler/Modules/GCC/ModuleGCC.pas

@@ -1 @@
-unit UModuleGCC;
-
-{$mode delphi}{$H+}
+unit ModuleGCC;
 
 interface
 
 uses
-  Classes, SysUtils, UModularSystem, UProducerGCC, UTargetGCC, UCompilerAPI;
+  Classes, SysUtils, ModularSystem, ProducerGCC, TargetGCC, CompilerAPI;
 
 type
@@ -13 +11 @@
 
   TModuleGCC = class(TModule)
+  public
     Target: TTargetGCC;
     constructor Create(AOwner: TComponent); override;
@@ -31 +30 @@
 begin
   inherited;
-  Name := 'GCC';
+  Identification := 'GCC';
   Title := SGCC;
 end;

trunk/Compiler/Modules/GCC/ProducerGCC.pas

@@ -1 @@
-unit UProducerGCC;
-
-{$MODE Delphi}
+unit ProducerGCC;
 
 interface
@@ -7 +5 @@
 uses
   SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, USourceCode, UProducer, StrUtils;
+  Dialogs, StdCtrls, SourceCodePascal, Producer, StrUtils;
 
 type
@@ -19 +17 @@
     procedure Emit(AText: string);
     procedure EmitLn(AText: string = '');
-    procedure GenerateUses(UsedModules: TUsedModuleList);
+    procedure GenerateUses(UsedModules: TUsedModules);
     procedure GenerateModule(Module: TSourceModule);
     procedure GenerateCommonBlock(CommonBlock: TCommonBlock;
       LabelPrefix: string);
     procedure GenerateType(AType: TType);
-    procedure GenerateTypes(Types: TTypeList);
+    procedure GenerateTypes(Types: TTypes);
     procedure GenerateProgram(ProgramBlock: TProgram);
-    procedure GenerateFunctions(Functions: TFunctionList;
+    procedure GenerateFunctions(Functions: TFunctions;
       Prefix: string = '');
     procedure GenerateBeginEnd(BeginEnd: TBeginEnd);
-    procedure GenerateVariableList(VariableList: TVariableList);
+    procedure GenerateVariableList(VariableList: TVariables);
     procedure GenerateVariable(Variable: TVariable);
     procedure GenerateCommand(Command: TCommand);
@@ -113 +111 @@
 end;
 
-procedure TProducerGCCC.GenerateUses(UsedModules: TUsedModuleList);
+procedure TProducerGCCC.GenerateUses(UsedModules: TUsedModules);
 var
   I: Integer;
@@ -155 +153 @@
 end;
 
-procedure TProducerGCCC.GenerateFunctions(Functions: TFunctionList;
-  Prefix: string = '');
+procedure TProducerGCCC.GenerateFunctions(Functions: TFunctions; Prefix: string
+  );
 var
   I: Integer;
@@ -202 +200 @@
 end;
 
-procedure TProducerGCCC.GenerateVariableList(VariableList: TVariableList);
+procedure TProducerGCCC.GenerateVariableList(VariableList: TVariables);
 var
   I: Integer;
@@ -361 +359 @@
 end;
 
-procedure TProducerGCCC.GenerateTypes(Types: TTypeList);
+procedure TProducerGCCC.GenerateTypes(Types: TTypes);
 var
   I: Integer;

trunk/Compiler/Modules/GCC/TargetGCC.pas

@@ -1 @@
-unit UTargetGCC;
-
-{$mode Delphi}{$H+}
+unit TargetGCC;
 
 interface
 
 uses
-  Classes, SysUtils, UTarget;
+  Classes, SysUtils, Target;
 
 type
@@ -22 +20 @@
 constructor TTargetGCC.Create;
 begin
-  inherited Create;
+  inherited;
   SysName := 'GCC';
   Name := 'GCC';