Changeset 74 for trunk/Compiler/UCompilerAPI.pas

Timestamp:

Jan 18, 2018, 11:54:13 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Build under Lazarus 1.8.0.

File:

• trunk/Compiler/UCompilerAPI.pas (modified) (2 diffs)

trunk/Compiler/UCompilerAPI.pas

@@ -15 +15 @@
   TCompilerAPI = class(TAPI)
     Compiler: TObject; //TCompiler;
+    procedure RegisterTarget(AClass: TTargetClass);
+    procedure UnregisterTarget(AClass: TTargetClass);
     procedure RegisterConvertor(AClass: TConvertorClass);
     procedure UnregisterConvertor(AClass: TConvertorClass);
@@ -30 +32 @@
 
 { TCompilerAPI }
+
+procedure TCompilerAPI.RegisterTarget(AClass: TTargetClass);
+begin
+  TCompiler(Compiler).Targets.Add(AClass.Create);
+end;
+
+procedure TCompilerAPI.UnregisterTarget(AClass: TTargetClass);
+begin
+  TCompiler(Compiler).Targets.Remove(TObject(AClass));
+end;
 
 procedure TCompilerAPI.RegisterConvertor(AClass: TConvertorClass);