Changeset 75 for trunk/Compiler/Target/Dynamic C/ProducerDynamicC.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/Dynamic C/ProducerDynamicC.pas (moved) (moved from trunk/Compiler/Target/Dynamic C/UProducerDynamicc.pas ) (9 diffs)

trunk/Compiler/Target/Dynamic C/ProducerDynamicC.pas

@@ -1 @@
-unit UProducerDynamicc;
-
-{$MODE Delphi}
+unit ProducerDynamicC;
 
 interface
@@ -7 +5 @@
 uses
   SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, USourceCodePascal, UProducer, StrUtils;
+  Dialogs, StdCtrls, SourceCodePascal, Producer, StrUtils;
 
 type
@@ -17 +15 @@
     function TranslateType(Name: string): string;
     function TranslateOperator(Name: string): 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 = ''; HeaderOnly: Boolean = False);
     procedure GenerateBeginEnd(BeginEnd: TBeginEnd);
-    procedure GenerateVariableList(VariableList: TVariableList);
+    procedure GenerateVariableList(VariableList: TVariables);
     procedure GenerateVariable(Variable: TVariable);
     procedure GenerateCommand(Command: TCommand);
@@ -43 +41 @@
   end;
 
+
 implementation
 
@@ -56 +55 @@
 destructor TProducerDynamicC.Destroy;
 begin
-  TextSource.Free;
+  FreeAndNil(TextSource);
   inherited;
 end;
@@ -87 +86 @@
 end;
 
-procedure TProducerDynamicC.GenerateUses(UsedModules: TUsedModuleList);
+procedure TProducerDynamicC.GenerateUses(UsedModules: TUsedModules);
 var
   I: Integer;
@@ -150 +149 @@
 end;
 
-procedure TProducerDynamicC.GenerateFunctions(Functions: TFunctionList;
+procedure TProducerDynamicC.GenerateFunctions(Functions: TFunctions;
   Prefix: string = ''; HeaderOnly: Boolean = False);
 var
@@ -197 +196 @@
 end;
 
-procedure TProducerDynamicC.GenerateVariableList(VariableList: TVariableList);
+procedure TProducerDynamicC.GenerateVariableList(VariableList: TVariables);
 var
   I: Integer;
@@ -360 +359 @@
 end;
 
-procedure TProducerDynamicC.GenerateTypes(Types: TTypeList);
+procedure TProducerDynamicC.GenerateTypes(Types: TTypes);
 var
   I: Integer;