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

* use -1 instead of 0 for indicating empty DirFD

Browse Source 
git-svn-id: trunk@49574 -
This commit is contained in:
nickysn 2021-07-01 01:48:25 +00:00
parent 0219b4018c
commit f0543ad8d5
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/wasi/dos.pp
View File

@ -397,13 +397,13 @@ Begin
If i<=RtlFindSize Then
Begin
RtlFindRecs[i].SearchNum:=0;
if f.dirfd<>0 then
if f.dirfd<>-1 then
repeat
res:=__wasi_fd_close(f.dirfd);
until (res=__WASI_ERRNO_SUCCESS) or (res<>__WASI_ERRNO_INTR);
End;
end;
f.dirfd:=0;
f.dirfd:=-1;
End;
@ -546,13 +546,11 @@ Begin
RtlFindRecs[ArrayPos].DirFD := f.DirFD;
end
else
f.DirFD:=0;
f.DirFD:=-1;
FreeMem(pr);
end
else
begin
f.DirFD:=0;
end;
f.DirFD:=-1;
End;
if ArrayPos>0 then
RtlFindRecs[ArrayPos].LastUsed:=0;
@ -560,7 +558,7 @@ Begin
{Main loop}
SName:=Copy(f.SearchSpec,f.NamePos+1,255);
Found:=False;
Finished:=(f.DirFD=0);
Finished:=(f.DirFD=-1);
While Not Finished Do
Begin
res:=__wasi_fd_readdir(f.DirFD,
@ -634,7 +632,7 @@ Begin
else }
DosError:=18;
end;
f.DirFD:=0;
f.DirFD:=-1;
f.SearchType:=1;
f.searchnum:=-1;
end