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

+ fsearch bugfix for Win9X systems

Browse Source
This commit is contained in:
carl 2002-07-06 11:48:09 +00:00
parent 6154d2c482
commit 1613d5663c
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/win32/dos.pp
View File

@ -726,6 +726,7 @@ begin
end; end;
{ search the path } { search the path }
fsearch:=''; fsearch:='';
for i:=1 to length(path) do for i:=1 to length(path) do
if path[i]='/' then if path[i]='/' then
path[i]:='\'; path[i]:='\';
@ -733,6 +734,12 @@ begin
for i:=1 to length(dirlist) do for i:=1 to length(dirlist) do
if dirlist[i]='/' then if dirlist[i]='/' then
dirlist[i]:='\'; dirlist[i]:='\';
{ bugfix here : Win98SE returns a path, when the name is NULL! }
{ so if the name of the file to search is '' then simply exit }
{ immediately (WinNT behavior is correct). }
if name='' then
exit;
{ allow slash as backslash } { allow slash as backslash }
StringToPchar(name); StringToPchar(name);
StringToPchar(ext); StringToPchar(ext);
@ -1011,7 +1018,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.12 2002-05-16 19:32:57 carl Revision 1.13 2002-07-06 11:48:09 carl
+ fsearch bugfix for Win9X systems
Revision 1.12 2002/05/16 19:32:57 carl
* fix range check error * fix range check error
Revision 1.11 2001/11/23 01:35:09 carl Revision 1.11 2001/11/23 01:35:09 carl