diff options
author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-03-24 16:30:50 +0000 |
---|---|---|
committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-03-24 16:30:50 +0000 |
commit | e70762cf75dc0e185450b58241a103946e6fbc54 (patch) | |
tree | b30228e7559e3369a6d10295f4637851d226c802 /rtl/bsd | |
parent | 16648acf03b8e097bf0e6122565efd5e3ca9e5aa (diff) | |
download | fpc-e70762cf75dc0e185450b58241a103946e6fbc54.tar.gz |
- removed the FPC_USE_GETDIRENTRIES_SYSCALL define and use_getdirentries_syscall
global variable, they are compatibility flags of a no longer supported OpenBSD version
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@41790 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/bsd')
-rw-r--r-- | rtl/bsd/ossysc.inc | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/rtl/bsd/ossysc.inc b/rtl/bsd/ossysc.inc index 8df42c51e2..df0317260a 100644 --- a/rtl/bsd/ossysc.inc +++ b/rtl/bsd/ossysc.inc @@ -220,9 +220,6 @@ begin dispose(dirp); end; -var - use_getdirentries_syscall : boolean = true; - function Fpreaddir(dirp : pdir) : pdirent; [public, alias : 'FPC_SYSC_READDIR']; {Different from Linux, Readdir on BSD is based on Getdents, due to the @@ -234,20 +231,8 @@ with blockmode have this higher?} function readbuffer:longint; var retval :longint; -{$ifdef FPC_USE_GETDIRENTRIES_SYSCALL} - basepp : pointer; - basep : clong; -{$endif FPC_USE_GETDIRENTRIES_SYSCALL} -begin -{$ifdef FPC_USE_GETDIRENTRIES_SYSCALL} - basepp:=@basep; - if use_getdirentries_syscall then - Retval:=do_syscall(syscall_nr_getdirentries,TSysParam(dirp^.dd_fd),TSysParam(@dirp^.dd_buf^),DIRBLKSIZ {sizeof(getdentsbuffer)},TSysParam(basepp)) - else - Retval:=do_syscall(syscall_nr_getdents,TSysParam(dirp^.dd_fd),TSysParam(@dirp^.dd_buf^),DIRBLKSIZ {sizeof(getdentsbuffer)}); -{$else not FPC_USE_GETDIRENTRIES_SYSCALL} +begin Retval:=do_syscall(syscall_nr_getdents,TSysParam(dirp^.dd_fd),TSysParam(@dirp^.dd_buf^),DIRBLKSIZ {sizeof(getdentsbuffer)}); -{$endif not FPC_USE_GETDIRENTRIES_SYSCALL} dirp^.dd_rewind:=TSysParam(dirp^.dd_buf); if retval=0 then begin |