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

Corrected fix for bug #902

Browse Source
This commit is contained in:
michael 2000-04-18 08:03:40 +00:00
parent 60ed425f24
commit ca270f3471
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/linux/dos.pp
View File

@ -711,7 +711,7 @@ Function FSearch(path : pathstr;dirlist : string) : pathstr;
Var Var
info:stat; info:stat;
Begin Begin
if FStat(path,info) then if (length(Path)>0) and (path[1]='/') and FStat(path,info) then
FSearch:=path FSearch:=path
else else
FSearch:=Linux.FSearch(path,dirlist); FSearch:=Linux.FSearch(path,dirlist);
@ -914,7 +914,10 @@ End.
{ {
$Log$ $Log$
Revision 1.20 2000-04-17 20:43:27 pierre Revision 1.21 2000-04-18 08:03:40 michael
Corrected fix for bug 902
Revision 1.20 2000/04/17 20:43:27 pierre
fix bug 902 for win32 and linux fix bug 902 for win32 and linux
Revision 1.19 2000/03/19 18:48:19 peter Revision 1.19 2000/03/19 18:48:19 peter