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

Use AnsiString and sysutils GetEnvironmentVariable function to avoid truncation of PATH to 255 chars

Browse Source 
git-svn-id: trunk@31202 -
This commit is contained in:
pierre 2015-07-11 13:59:06 +00:00
parent 9118146bc1
commit 960a72f821
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/utils/gppc386.pp
View File

@ -22,6 +22,9 @@
****************************************************************************}
{$mode objfpc}
{ Use ansitrings for long PATH variables }
{$H+}
program fpc_with_gdb;
{
@ -39,6 +42,7 @@ program fpc_with_gdb;
}
uses
sysutils,
dos;
const
@ -77,7 +81,8 @@ end;
var
fpcgdbini : text;
CompilerName,Dir,Name,Ext : String;
CompilerName : String;
Dir,Name,Ext : ShortString;
GDBError,GDBExitCode,i : longint;
begin
@ -88,7 +93,7 @@ begin
else
CompilerName:=DefaultCompilerName;
CompilerName:=fsearch(CompilerName,Dir+PathSep+GetEnv('PATH'));
CompilerName:=filesearch(CompilerName,Dir+PathSep+GetEnvironmentVariable('PATH'));
{ support for info functions directly : used in makefiles }
if (paramcount=1) and (pos('-i',Paramstr(1))=1) then
@ -157,9 +162,9 @@ begin
flush(stderr);
{$endif}
GDBExeName:=fsearch(GDBExeName,Dir+PathSep+GetEnv('PATH'));
GDBExeName:=filesearch(GDBExeName,Dir+PathSep+GetEnvironmentVariable('PATH'));
if GDBExeName='' then
GDBExeName:=fsearch(GDBAltExeName,Dir+PathSep+GetEnv('PATH'));
GDBExeName:=filesearch(GDBAltExeName,Dir+PathSep+GetEnvironmentVariable('PATH'));
AdaptToGDB(CompilerName);
AdaptToGDB(GDBIniTempName);