Changeset 75 for trunk/Compiler/Modules/GCC/ProducerGCC.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/GCC/ProducerGCC.pas (moved) (moved from trunk/Compiler/Modules/GCC/UProducerGCC.pas ) (7 diffs)

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;