Changeset 77 for trunk/Compiler/Modules/GCC/ProducerGCC.pas

Timestamp:

Jun 4, 2024, 9:53:17 PM (4 months ago)

Author:

chronos

Message:

• Modified: Compiler targets moved into modules.

File:

• trunk/Compiler/Modules/GCC/ProducerGCC.pas (modified) (4 diffs)

trunk/Compiler/Modules/GCC/ProducerGCC.pas

@@ -4 +4 @@
 
 uses
-  SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, SourceCodePascal, Producer, StrUtils;
+  SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
+  SourceCodePascal, Producer, StrUtils;
 
 type
@@ -46 +46 @@
   end;
 
+
 implementation
 
@@ -64 +65 @@
 destructor TProducerGCCC.Destroy;
 begin
-  TextSource.Free;
+  FreeAndNil(TextSource);
   inherited;
 end;
@@ -153 +154 @@
 end;
 
-procedure TProducerGCCC.GenerateFunctions(Functions: TFunctions; Prefix: string
-  );
+procedure TProducerGCCC.GenerateFunctions(Functions: TFunctions;
+  Prefix: string = '');
 var
   I: Integer;