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

* fix for findfirst from the mailinglist

Browse Source
This commit is contained in:
peter 1999-03-05 13:09:57 +00:00
parent 005c5a5de1
commit 1e791f6fa5
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/linux/dos.pp
View File

@ -688,7 +688,8 @@ Begin
end; end;
end; end;
End; End;
RtlFindRecs[ArrayPos].LastUsed:=0; if ArrayPos>0 then
RtlFindRecs[ArrayPos].LastUsed:=0;
end; end;
{Main loop} {Main loop}
SName:=Copy(f.SearchSpec,f.NamePos+1,255); SName:=Copy(f.SearchSpec,f.NamePos+1,255);
@ -1044,7 +1045,10 @@ End.
{ {
$Log$ $Log$
Revision 1.9 1999-02-22 11:45:19 peter Revision 1.10 1999-03-05 13:09:57 peter
* fix for findfirst from the mailinglist
Revision 1.9 1999/02/22 11:45:19 peter
* fixed findlastused (from mailinglist) * fixed findlastused (from mailinglist)
Revision 1.8 1999/01/28 12:54:13 michael Revision 1.8 1999/01/28 12:54:13 michael