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

* readdir now uses getdents, patch from Joost van der Sluis

Browse Source
This commit is contained in:
peter 2004-04-12 16:33:42 +00:00
parent e0c4a0ed01
commit 939044763b
1 changed files with 26 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
rtl/linux/ossysc.inc
View File

@ -152,6 +152,7 @@ begin
ptr^.dd_fd:=fd;
ptr^.dd_loc:=0;
ptr^.dd_size:=0;
ptr^.dd_nextoff:=0;
ptr^.dd_max:=sizeof(ptr^.dd_buf^);
Fpopendir:=ptr;
end;
@ -164,22 +165,30 @@ begin
dispose(dirp);
end;
function Fpreaddir(dirp : pdir) : pdirent; [public, alias : 'FPC_SYSC_READDIR'];
{Different from Linux, Readdir on BSD is based on Getdents, due to the
missing of the readdir syscall.
Getdents requires the buffer to be larger than the blocksize.
This usually the sectorsize =512 bytes, but maybe tapedrives and harddisks
with blockmode have this higher?}
Function Fpreaddir(dirp : pdir) : pdirent; [public, alias: 'FPC_SYSC_READDIR'];
var bytes : longint;
dp : pdirent;
begin
if do_SysCall(SysCall_nr_readdir,TSysParam(dirp^.dd_fd),TSysParam(dirp^.dd_buf),TSysParam(1))=0 Then
{ the readdir system call returns the number of bytes written }
Fpreaddir:=nil
else
Fpreaddir:=dirp^.dd_buf
repeat
if dirp^.dd_nextoff >= dirp^.dd_size then
begin
bytes := do_SysCall(SysCall_nr_getdents,TSysParam(dirp^.dd_fd),TSysParam(dirp^.dd_buf),TSysParam(dirp^.dd_max));
if bytes <= 0 then
begin
fpreaddir := nil;
exit;
end;
dirp^.dd_size := bytes;
dirp^.dd_nextoff := 0;
end;
dp := pdirent(ptrint(dirp^.dd_buf)+dirp^.dd_nextoff);
inc(dirp^.dd_nextoff,dp^.d_reclen);
inc(dirp^.dd_loc,dp^.d_reclen);
until dp^.d_fileno <> 0; // Don't show deleted files
Fpreaddir := dp;
end;
{*****************************************************************************
--- Process:Process & program handling - related calls ---
*****************************************************************************}
@ -487,7 +496,10 @@ end;
{
$Log$
Revision 1.19 2004-03-27 14:34:23 florian
Revision 1.20 2004-04-12 16:33:42 peter
* readdir now uses getdents, patch from Joost van der Sluis
Revision 1.19 2004/03/27 14:34:23 florian
* use rt_sigaction syscall on arm
Revision 1.18 2004/02/21 16:27:29 marco