Changeset 75 for trunk/Compiler/Target/GCC/ProducerGCC.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Compiler/Target/GCC/ProducerGCC.pas (moved) (moved from trunk/Compiler/Target/GCC/UProducerGCC.pas ) (8 diffs)

trunk/Compiler/Target/GCC/ProducerGCC.pas

@@ -1 @@
-unit UProducerGCC;
-
-{$MODE Delphi}
+unit ProducerGCC;
 
 interface
 
 uses
-  SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, USourceCodePascal, UProducer, StrUtils;
+  SysUtils, Variants, Classes, Graphics, Controls, Forms, 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);
@@ -48 +46 @@
   end;
 
+
 implementation
 
@@ -66 +65 @@
 destructor TProducerGCCC.Destroy;
 begin
-  TextSource.Free;
+  FreeAndNil(TextSource);
   inherited;
 end;
@@ -113 +112 @@
 end;
 
-procedure TProducerGCCC.GenerateUses(UsedModules: TUsedModuleList);
+procedure TProducerGCCC.GenerateUses(UsedModules: TUsedModules);
 var
   I: Integer;
@@ -155 +154 @@
 end;
 
-procedure TProducerGCCC.GenerateFunctions(Functions: TFunctionList;
+procedure TProducerGCCC.GenerateFunctions(Functions: TFunctions;
   Prefix: string = '');
 var
@@ -202 +201 @@
 end;
 
-procedure TProducerGCCC.GenerateVariableList(VariableList: TVariableList);
+procedure TProducerGCCC.GenerateVariableList(VariableList: TVariables);
 var
   I: Integer;
@@ -361 +360 @@
 end;
 
-procedure TProducerGCCC.GenerateTypes(Types: TTypeList);
+procedure TProducerGCCC.GenerateTypes(Types: TTypes);
 var
   I: Integer;