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

* replace : with ; in AddPath

Browse Source 
git-svn-id: trunk@9161 -
This commit is contained in:
peter 2007-11-08 08:24:07 +00:00
parent a67b2a7484
commit af9e8b489c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/cfileutl.pas
View File

@ -930,7 +930,7 @@ implementation
procedure TSearchPathList.AddPath(SrcPath,s:TCmdStr;addfirst:boolean); procedure TSearchPathList.AddPath(SrcPath,s:TCmdStr;addfirst:boolean);
var var
staridx, staridx,
j : longint; i,j : longint;
prefix, prefix,
suffix, suffix,
CurrentDir, CurrentDir,
@ -970,6 +970,10 @@ implementation
exit; exit;
{ Support default macro's } { Support default macro's }
DefaultReplacements(s); DefaultReplacements(s);
if PathSeparator <> ';' then
for i:=1 to length(s) do
if s[i]=PathSeparator then
s[i]:=';';
{ get current dir } { get current dir }
CurrentDir:=GetCurrentDir; CurrentDir:=GetCurrentDir;
repeat repeat