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

Only add gdbver.inc if needed

Browse Source 
git-svn-id: trunk@29154 -
This commit is contained in:
pierre 2014-11-26 15:22:24 +00:00
parent c6199b22b6
commit 8ea4e575f2
1 changed files with 6 additions and 5 deletions

11
packages/gdbint/fpmake.pp
View File

@ -16,7 +16,7 @@ var
P : TPackage;
GdbLibDir, GdbLibFile: string;
GdbLibFound: boolean;
GdbVerTarget: TTarget;
GdbintTarget, GdbVerTarget: TTarget;
begin
P := Sender as TPackage;
// Search for a libgdb file.
@ -60,6 +60,7 @@ begin
end;
GdbVerTarget:=TTarget(p.Targets.ItemByName('gdbver'));
GdbintTarget:=TTarget(p.Targets.ItemByName('gdbint'));
if GdbLibFound then
Installer.BuildEngine.Log(vlCommand,'File libgdb.a found ('+GdbLibFile+')')
@ -94,6 +95,8 @@ begin
AddProgramExtension('gdbver',Defaults.BuildOS),'-o ' +
Installer.BuildEngine.AddPathPrefix(p,'src'+PathDelim+'gdbver.inc'));
with GdbintTarget.Dependencies do
AddInclude('gdbver.inc');
// Pass -dUSE_MINGW_GDB to the compiler when a MinGW gdb is used
if FileExists(GdbLibDir+PathDelim+MinGWGdbLibName) then
begin
@ -119,6 +122,8 @@ begin
else
L.values['src'+DirectorySeparator+'gdbver_nogdb.inc'] := 'src'+DirectorySeparator+'gdbver.inc';
Installer.BuildEngine.cmdcopyfiles(L, Installer.BuildEngine.StartDir, nil);
with GdbintTarget.Dependencies do
AddInclude('gdbver.inc');
finally
L.Free;
end;
@ -181,10 +186,6 @@ begin
AddUnit('gdbint');
end;
T:=P.Targets.AddUnit('gdbint.pp');
with T.Dependencies do
begin
AddInclude('gdbver.inc');
end;
P.ExamplePath.add('examples');
P.Targets.AddExampleProgram('testgdb.pp');
P.Targets.AddExampleProgram('symify.pp');