230df100e2
Free Pascal (aka FPK Pascal) is a 32 and 64 bit professional Pascal compiler. It is available for different processors: Intel x86, Amd64/x86_64, PowerPC, PowerPC64, Sparc, ARM. The discontinued 1.0 version also supports the Motorola 680x0. The following operating systems are supported: Linux, FreeBSD, Haiku, Mac OS X/Darwin, DOS, Win32, Win64, WinCE, OS/2, Netware (libc and classic) and MorphOS. Thanks to pierre at freepascal dot org for taking care of the patches and to aja@ for mirroring the bootstrap. tweaks and ok jasper@ sthen@
17 lines
660 B
Plaintext
17 lines
660 B
Plaintext
$OpenBSD: patch-fpcsrc_rtl_bsd_ossysc_inc,v 1.1.1.1 2013/03/08 11:34:18 pascal Exp $
|
|
|
|
Correct last parameter to getdirentries(2)
|
|
http://svn.freepascal.org/cgi-bin/viewvc.cgi?view=revision&revision=23223
|
|
|
|
--- fpcsrc/rtl/bsd/ossysc.inc.orig Thu Jul 26 20:34:03 2012
|
|
+++ fpcsrc/rtl/bsd/ossysc.inc Thu Jul 26 20:34:16 2012
|
|
@@ -223,7 +223,7 @@ with blockmode have this higher?}
|
|
function readbuffer:longint;
|
|
|
|
var retval :longint;
|
|
- basep : clong;
|
|
+ basep : off_t;
|
|
begin
|
|
{$ifdef USE_GETDIRENTRIES_SYSCALL}
|
|
Retval:=do_syscall(syscall_nr_getdirentries,TSysParam(dirp^.dd_fd),TSysParam(@dirp^.dd_buf^),DIRBLKSIZ {sizeof(getdentsbuffer)},TSysParam(@basep));
|