paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-01 04:02:40 +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);
var
staridx,
j : longint;
i,j : longint;
prefix,
suffix,
CurrentDir,
@ -970,6 +970,10 @@ implementation
exit;
{ Support default macro's }
DefaultReplacements(s);
if PathSeparator <> ';' then
for i:=1 to length(s) do
if s[i]=PathSeparator then
s[i]:=';';
{ get current dir }
CurrentDir:=GetCurrentDir;
repeat