paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-01 18:02:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix from mischi

Browse Source
This commit is contained in:
marco 2005-03-13 14:11:06 +00:00
parent 257f7162b3
commit 3567f25001
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/bsd/ossysc.inc
View File

@ -226,6 +226,7 @@ begin
end
else
dirP^.dd_loc:=retval;
dirP^.dd_size:=retval;
readbuffer:=retval;
end;
@ -239,7 +240,7 @@ begin
if (dirp^.dd_buf=nil) or (dirp^.dd_loc=0) THEN
exit(nil);
if (dirp^.dd_loc=-1) OR {First readdir on this pdir. Initial fill of buffer}
(dirp^.dd_rewind>=(longint(dirp^.dd_buf)+dirblksiz)) then {no more entries left?}
(dirp^.dd_rewind>=(longint(dirp^.dd_buf)+dirp^.dd_size)) then {no more entries left?}
Begin
if readbuffer=0 then {succesful read?}
Exit(NIL); {No more data}
@ -534,7 +535,10 @@ end;
{
$Log$
Revision 1.24 2005-02-14 17:13:21 peter
Revision 1.25 2005-03-13 14:11:06 marco
* fix from mischi
Revision 1.24 2005/02/14 17:13:21 peter
* truncate log
Revision 1.23 2005/02/13 21:47:56 peter