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

* Fix getdirentries problem for openbsd

Browse Source 
git-svn-id: trunk@19418 -
This commit is contained in:
pierre 2011-10-08 16:46:38 +00:00
parent a5cff8099c
commit a6280de177
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/bsd/ossysc.inc
View File

@ -223,9 +223,13 @@ with blockmode have this higher?}
function readbuffer:longint;
var retval :longint;
basep : clong;
begin
{$ifdef USE_GETDIRENTRIES_SYSCALL}
Retval:=do_syscall(syscall_nr_getdirentries,TSysParam(dirp^.dd_fd),TSysParam(@dirp^.dd_buf^),DIRBLKSIZ {sizeof(getdentsbuffer)},TSysParam(@basep));
{$else not USE_GETDIRENTRIES_SYSCALL}
Retval:=do_syscall(syscall_nr_getdents,TSysParam(dirp^.dd_fd),TSysParam(@dirp^.dd_buf^),DIRBLKSIZ {sizeof(getdentsbuffer)});
{$endif not USE_GETDIRENTRIES_SYSCALL}
dirp^.dd_rewind:=TSysParam(dirp^.dd_buf);
if retval=0 then
begin

3
rtl/openbsd/sysnr.inc
View File

@ -251,5 +251,6 @@ Const
{ Aliases }
syscall_nr_waitpid = syscall_nr_wait4; // 7, added: ease of notation purposes
syscall_nr_getdents = syscall_nr_getdirentries;
{ syscall_nr_getdents = syscall_nr_getdirentries; }
{$define USE_GETDIRENTRIES_SYSCALL}