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

Use new getdirentriesi49 syscall, contributed by Pascal Stumpf

Browse Source 
git-svn-id: trunk@23223 -
This commit is contained in:
pierre 2012-12-26 14:33:30 +00:00
parent 3588c39a55
commit 7457a0f321
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/bsd/ossysc.inc
View File

@ -223,7 +223,12 @@ with blockmode have this higher?}
function readbuffer:longint;
var retval :longint;
{$ifdef USE_GETDIRENTRIES_I49_SYSCALL}
{ OpenBSD i49 getDirEntries system call uses off_t type for last parameter }
basep : off_t;
{$else not USE_GETDIRENTRIES_I49_SYSCALL}
basep : clong;
{$endif not USE_GETDIRENTRIES_I49_SYSCALL}
begin
{$ifdef USE_GETDIRENTRIES_SYSCALL}
Retval:=do_syscall(syscall_nr_getdirentries,TSysParam(dirp^.dd_fd),TSysParam(@dirp^.dd_buf^),DIRBLKSIZ {sizeof(getdentsbuffer)},TSysParam(@basep));

3
rtl/openbsd/sysnr.inc
View File

@ -256,8 +256,9 @@ Const
syscall_nr_MAXSYSCALL = 313;
{ Aliases }
syscall_nr_getdirentries = syscall_nr_ogetdirentries;
syscall_nr_getdirentries = syscall_nr_getdirentriesi49;
syscall_nr_waitpid = syscall_nr_wait4; // 7, added: ease of notation purposes
{ syscall_nr_getdents = syscall_nr_getdirentries; }
{$define USE_GETDIRENTRIES_SYSCALL}
{$define USE_GETDIRENTRIES_I49_SYSCALL}