Browse Source

* fcl-fpterm/fpmake.pp modified, so it includes a function, similar to
rtl-console/fpmake.pp. This is to allow declaring constant sets for the OSes.

Nikolay Nikolov 9 months ago
parent
commit
481ef7273e
2 changed files with 11 additions and 12 deletions
  1. 11 8
      packages/fcl-fpterm/fpmake.pp
  2. 0 4
      packages/fpmake_proc.inc

+ 11 - 8
packages/fcl-fpterm/fpmake.pp

@@ -3,19 +3,19 @@
 program fpmake;
 
 uses {$ifdef unix}cthreads,{$endif} fpmkunit;
+{$endif ALLPACKAGES}
+
+procedure add_fcl_fpterm(const ADirectory: string);
 
 Var
   P : TPackage;
   T : TTarget;
-begin
-  With Installer do
-    begin
-{$endif ALLPACKAGES}
 
+begin
+  with Installer do
+  begin
     P:=AddPackage('fcl-fpterm');
-{$ifdef ALLPACKAGES}
     P.Directory:=ADirectory;
-{$endif ALLPACKAGES}
     P.Version:='3.3.1';
 
     P.Author := 'Nikolay Nikolov';
@@ -79,9 +79,12 @@ begin
       end;
 
     //P.NamespaceMap:='namespaces.lst';
+  end;
+end;
 
 {$ifndef ALLPACKAGES}
-    Run;
-    end;
+begin
+  add_fcl_fpterm('');
+  Installer.Run;
 end.
 {$endif ALLPACKAGES}

+ 0 - 4
packages/fpmake_proc.inc

@@ -912,9 +912,5 @@ begin
 {$include ptckvm/fpmake.pp}
 end;
 
-procedure add_fcl_fpterm(const ADirectory: string);
-begin
-  with Installer do
 {$include fcl-fpterm/fpmake.pp}
-end;