Changeset 77 for trunk/Compiler/Modules

Timestamp:

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

Author:

chronos

Message:

• Modified: Compiler targets moved into modules.

Location:

trunk/Compiler/Modules

Files:

• ASM8051/ProducerASM8051.pas (modified) (3 diffs)
• DynamicC (added)
• DynamicC/ModuleDynamicC.pas (added)
• DynamicC/ProducerDynamicC.pas (added)
• DynamicC/TargetDynamicC.pas (added)
• GCC/ModuleGCC.pas (modified) (1 diff)
• GCC/ProducerGCC.pas (modified) (4 diffs)
• Java/ModuleJava.pas (modified) (4 diffs)
• Java/TargetJava.pas (added)
• NASM (added)
• NASM/ModuleNASM.pas (added)
• NASM/TargetNASM.pas (added)
• PHP/TargetPHP.pas (added)
• XML (added)
• XML/ModuleXML.pas (added)
• XML/TargetXML.pas (added)

trunk/Compiler/Modules/ASM8051/ProducerASM8051.pas

@@ -45 +45 @@
 implementation
 
-
 { TAssemblerLine }
 
@@ -71 +70 @@
   NewLine.Operand2 := Operand2;
 end;
-
 
 (*
@@ -113 +111 @@
 destructor TProducerAsm8051.Destroy;
 begin
-  AssemblyCode.Free;
+  FreeAndNil(AssemblyCode);
   inherited;
 end;

trunk/Compiler/Modules/GCC/ModuleGCC.pas

@@ -36 +36 @@
 destructor TModuleGCC.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;
 

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;

trunk/Compiler/Modules/Java/ModuleJava.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, ModularSystem, SourceConvertor;
+  Classes, SysUtils, ModularSystem, SourceConvertor, TargetJava;
 
 type
@@ -10 +10 @@
 
   TModuleJava = class(TModule)
+    Target: TTargetJava;
     constructor Create(AOwner: TComponent); override;
     procedure DoInstall; override;
@@ -35 +36 @@
 procedure TModuleJava.DoInstall;
 begin
+  Target := TTargetJava.Create;
+  with TCompilerAPI(API) do begin
+    RegisterTarget(TTargetJava);
+  end;
   inherited;
 end;
@@ -40 +45 @@
 procedure TModuleJava.DoUninstall;
 begin
+  with TCompilerAPI(API) do begin
+    UnregisterTarget(TTargetJava);
+  end;
   inherited;
 end;