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

+ Always try to find Compiler in same directory first

Browse Source 
git-svn-id: trunk@15763 -
This commit is contained in:
pierre 2010-08-10 11:37:06 +00:00
parent 874e69bcf8
commit 45b11561cf
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/utils/gppc386.pp
View File

@ -44,10 +44,12 @@ const
GDBExeName = 'gdbpas';
GDBIniName = '.gdbinit';
DefaultCompilerName = 'ppc386';
PathSep=':';
{$else}
GDBExeName = 'gdbpas.exe';
GDBIniName = 'gdb.ini';
DefaultCompilerName = 'ppc386.exe';
PathSep=';';
{$endif not linux}
{ If you add a gdb.fpc file in a given directory }
@ -72,7 +74,7 @@ begin
{ support for info functions directly : used in makefiles }
if (paramcount=1) and (pos('-i',Paramstr(1))=1) then
begin
Exec(fsearch(CompilerName,GetEnv('PATH')),Paramstr(1));
Exec(fsearch(CompilerName,Dir+PathSep+GetEnv('PATH')),Paramstr(1));
exit;
end;
@ -114,7 +116,7 @@ begin
Writeln(fpcgdbini,'end');
Close(fpcgdbini);
Exec(fsearch(GDBExeName,GetEnv('PATH')),
Exec(fsearch(GDBExeName,Dir+PathSep+GetEnv('PATH')),
{$ifdef win32}
'--nw '+
{$endif win32}