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

+ Patched FSearch from Frank McCormick

Browse Source
This commit is contained in:
michael 1999-08-25 13:57:55 +00:00
parent d525b426d8
commit 8dc64344fd
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/win32/dos.pp
View File

@ -719,7 +719,7 @@ begin
if dirlist[i]='/' then dirlist[i]:='\';
repeat
p1:=pos(';',dirlist);
if p1=0 then
if p1<>0 then
begin
newdir:=copy(dirlist,1,p1-1);
delete(dirlist,1,p1);
@ -886,7 +886,10 @@ End;
end.
{
$Log$
Revision 1.18 1999-08-12 09:24:14 michael
Revision 1.19 1999-08-25 13:57:55 michael
+ Patched FSearch from Frank McCormick
Revision 1.18 1999/08/12 09:24:14 michael
Fixed win32finddata size; searchrec.excludeattr was overwritten.
Revision 1.17 1999/05/16 17:08:59 peter