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

* findfirst fix from the mailinglist

Browse Source
This commit is contained in:
peter 1998-11-05 14:24:08 +00:00
parent c21642499c
commit 5d8f909e4e
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/linux/dos.pp
View File

@ -515,9 +515,10 @@ Type
LastUsed : LongInt;
End;
Var
RtlFindRecs : Array[0..RtlFindSize-1] of RtlFindRecType;
RtlFindRecs : Array[1..RtlFindSize] of RtlFindRecType;
CurrSearchNum : LongInt;
Procedure FindClose(Var f: SearchRec);
{
Closes dirptr if it is open
@ -532,8 +533,8 @@ Begin
if (RtlFindRecs[i].SearchNum=f.SearchNum) then
break;
inc(i);
until (i>=RtlFindSize);
If i<RtlFindSize Then
until (i>RtlFindSize);
If i<=RtlFindSize Then
Begin
RtlFindRecs[i].SearchNum:=0;
if f.dirptr>0 then
@ -598,9 +599,9 @@ Var
Found : Boolean;
Begin
BestMatch:=0;
i:=0;
i:=1;
Found:=False;
While (i < RtlFindSize) And (Not Found) Do
While (i <= RtlFindSize) And (Not Found) Do
Begin
If (RtlFindRecs[i].SearchNum = 0) Then
Begin
@ -638,7 +639,7 @@ Begin
If f.SearchType=0 Then
Begin
ArrayPos:=0;
For i:=0 to RtlFindSize-1 Do
For i:=1 to RtlFindSize Do
Begin
If RtlFindRecs[i].SearchNum = f.SearchNum Then
ArrayPos:=i;
@ -1041,7 +1042,10 @@ End.
{
$Log$
Revision 1.4 1998-11-04 10:15:54 peter
Revision 1.5 1998-11-05 14:24:08 peter
* findfirst fix from the mailinglist
Revision 1.4 1998/11/04 10:15:54 peter
* don't use getmem in startup (necessary for heaptrc)
Revision 1.3 1998/05/06 12:35:26 michael