paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-08 07:46:03 +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;
RtlFindRecs[ArrayPos].LastUsed:=0;
if ArrayPos>0 then
RtlFindRecs[ArrayPos].LastUsed:=0;
end;
{Main loop}
SName:=Copy(f.SearchSpec,f.NamePos+1,255);
@ -1044,7 +1045,10 @@ End.
{
$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)
Revision 1.8 1999/01/28 12:54:13 michael