paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 06:38:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* made dblib/fpmake.pp to use the same structure as other fpmake files => avoids hint on unused variable during make all

Browse Source
This commit is contained in:
florian 2024-11-09 14:34:24 +01:00
parent dad75d4472
commit 12f0ccbb01
2 changed files with 10 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
packages/dblib/fpmake.pp
View File

@ -4,20 +4,13 @@ program fpmake;
uses {$ifdef unix}cthreads,{$endif} fpmkunit; uses {$ifdef unix}cthreads,{$endif} fpmkunit;
{$endif not ALLPACKAGES}
procedure add_dblib(const ADirectory: string);
Const
DBLibOSes = [linux,freebsd,netbsd,openbsd,solaris,win32,win64,haiku,android,dragonfly,beos];
Var Var
P : TPackage; P : TPackage;
T : TTarget; T : TTarget;
begin begin
With Installer do With Installer do
begin begin
{$endif ALLPACKAGES}
P:=AddPackage('dblib'); P:=AddPackage('dblib');
P.ShortName := 'dblb'; P.ShortName := 'dblb';
P.Directory:=ADirectory; P.Directory:=ADirectory;
@ -32,20 +25,16 @@ begin
P.SourcePath.Add('src'); P.SourcePath.Add('src');
P.IncludePath.Add('src'); P.IncludePath.Add('src');
P.OSes := DBLibOSes; P.OSes := [linux,freebsd,netbsd,openbsd,solaris,win32,win64,haiku,android,dragonfly,beos];
if Defaults.CPU=jvm then if Defaults.CPU=jvm then
P.OSes := P.OSes - [android]; P.OSes := P.OSes - [android];
T:=P.Targets.AddUnit('dblib.pp',DBLibOSes); T:=P.Targets.AddUnit('dblib.pp',P.OSes);
P.NamespaceMap:='namespaces.lst'; P.NamespaceMap:='namespaces.lst';
end;
end;
{$ifndef ALLPACKAGES} {$ifndef ALLPACKAGES}
begin Run;
add_dblib(''); end;
Installer.Run;
end. end.
{$endif ALLPACKAGES} {$endif ALLPACKAGES}

4
packages/fpmake_proc.inc
View File

@ -64,7 +64,11 @@ begin
{$include cocoaint/fpmake.pp} {$include cocoaint/fpmake.pp}
end; end;
procedure add_dblib(const ADirectory: string);
begin
with Installer do
{$include dblib/fpmake.pp} {$include dblib/fpmake.pp}
end;
procedure add_dbus(const ADirectory: string); procedure add_dbus(const ADirectory: string);
begin begin