From 6088d82362a3875d26ac740c4fa877872f54fb9b Mon Sep 17 00:00:00 2001 From: marco Date: Sun, 4 Aug 2002 04:29:34 +0000 Subject: [PATCH] * More POSIX updates. Small changes to lseek and ftruncate in osposix.inc Initial versions of the type includefiles --- rtl/bsd/osposix.inc | 45 ++++++++++++------------------ rtl/freebsd/ptypes.inc | 63 ++++++++++++++++++++++++++++++++++++++++++ rtl/netbsd/ptypes.inc | 63 ++++++++++++++++++++++++++++++++++++++++++ rtl/openbsd/ptypes.inc | 63 ++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 207 insertions(+), 27 deletions(-) create mode 100644 rtl/freebsd/ptypes.inc create mode 100644 rtl/netbsd/ptypes.inc create mode 100644 rtl/openbsd/ptypes.inc diff --git a/rtl/bsd/osposix.inc b/rtl/bsd/osposix.inc index 9ca0c0ec83..e19baeef3e 100644 --- a/rtl/bsd/osposix.inc +++ b/rtl/bsd/osposix.inc @@ -128,32 +128,19 @@ begin end; function sys_lseek(fd : cint; offset : off_t; whence : cint): off_t; +{ +this one is special for the return value being 64-bit.. +hi/lo offset not yet tested. -{this one is special for the return value being 64-bit.. -Have to test on 5.x to make it fully 64-bit} +NetBSD: ok, but implicit return value in edx:eax +FreeBSD: same implementation as NetBSD. +} begin {ugly implicit returnvalue} - do_syscall(syscall_nr___syscall,syscall_nr_lseek,0,longint(fd),0,Offset,0,Whence); + do_syscall(syscall_nr___syscall,syscall_nr_lseek,0,longint(fd),0,lo(Offset),{0} hi(offset),Whence); end; - -{ old code: - asm - pushl Whence - pushl $0 // high dword - pushl Off - pushl $0 - pushl F - pushl $0 // Your guess is as good as mine. Pointer to ret val? - pushl $0xc7 // Actual lseek syscall number. - movl $0xc6,%eax - call actualsyscall - addl $28,%esp - mov %ebx,Errno - end; -} - function sys_read(fd: cint; buf: pchar; nbytes : size_t): ssize_t; begin @@ -356,14 +343,14 @@ begin do_syscall(syscall_nr_sigaction,longint(sig),longint(@act),longint(@oact)); end; -(*=================== MOVED from syslinux.inc ========================*) +(*=================== MOVED from sysunix.inc ========================*) function sys_ftruncate(fd : cint; flength : off_t): cint; +{ See notes lseek. This one is completely similar. -{this one is special for the return value being 64-bit..} - +} begin - Do_syscall(syscall_nr___syscall,syscall_nr_ftruncate,0,fd,0,flength,0); + Do_syscall(syscall_nr___syscall,syscall_nr_ftruncate,0,fd,0,lo(flength),hi(flength)); end; function sys_fstat(fd : cint; var sb : stat): cint; @@ -440,7 +427,7 @@ function sys_access(const pathname : pchar; amode : cint): cint; The test is done with the real user-ID, instead of the effective. If access is denied, or an error occurred, false is returned. If access is granted, true is returned. - Errors other than no access,are reported in linuxerror. + Errors other than no access,are reported in unixerror. } begin @@ -459,7 +446,7 @@ function sys_access(const pathname : pathstr; amode : cint): cint; The test is done with the real user-ID, instead of the effective. If access is denied, or an error occurred, false is returned. If access is granted, true is returned. - Errors other than no access,are reported in linuxerror. + Errors other than no access,are reported in unixerror. } begin @@ -537,7 +524,11 @@ end; { $Log$ - Revision 1.1 2002-08-03 19:34:19 marco + Revision 1.2 2002-08-04 04:29:34 marco + * More POSIX updates. Small changes to lseek and ftruncate in osposix.inc + Initial versions of the type includefiles + + Revision 1.1 2002/08/03 19:34:19 marco * Initial *BSD versions. Seems that OpenBSD doesn't need much change, NetBSD may need some fixes to stat record and ftruncate and lseek. It is all close together, and it should be doable to have just one copy diff --git a/rtl/freebsd/ptypes.inc b/rtl/freebsd/ptypes.inc new file mode 100644 index 0000000000..3e195d6cba --- /dev/null +++ b/rtl/freebsd/ptypes.inc @@ -0,0 +1,63 @@ +{ + $Id$ + This file is part of the Free Pascal run time library. + Copyright (c) 2001 by Free Pascal development team + + This file implements all the base types and limits required + for a minimal POSIX compliant subset required to port the compiler + to a new OS. + + See the file COPYING.FPC, included in this distribution, + for details about the copyright. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + **********************************************************************} + +{***********************************************************************} +{ POSIX TYPE DEFINITIONS } +{***********************************************************************} + +type + { the following type definitions are compiler dependant } + { and system dependant } + + cint8 = shortint; + cuint8 = byte; + cuint16= word; + cint16 = smallint; + cint32 = longint; + cuint32= cardinal; + cint64 = int64; +{$ifndef VER_1_0} + cuint64= qword; +{$endif} + + cint = longint; { minimum range is : 32-bit } + cuint = Cardinal; { minimum range is : 32-bit } + clong = longint; + culong = Cardinal; + + dev_t = cuint32; { used for device numbers } + gid_t = cuint32; { used for group IDs } + ino_t = clong; { used for file serial numbers } + mode_t = cuint16; { used for file attributes } + nlink_t = cuint16; { used for link counts } + off_t = cint64; { used for file sizes } + pid_t = cint32; { used as process identifier } + size_t = cuint32; { as definied in the C standard} + ssize_t = cint32; { used by function for returning number of bytes } + uid_t = cuint32; { used for user ID type } + + time_t = clong; { used for returning the time } + socklen_t= cuint32; + +CONST + { System limits, POSIX value in parentheses, used for buffer and stack allocation } + ARG_MAX = 65536; {4096} { Maximum number of argument size } + NAME_MAX = 255; {14} { Maximum number of bytes in filename } + PATH_MAX = 1024; {255} { Maximum number of bytes in pathname } + + SYS_NMLN = 32; {BSD utsname struct limit} diff --git a/rtl/netbsd/ptypes.inc b/rtl/netbsd/ptypes.inc new file mode 100644 index 0000000000..e34fbef571 --- /dev/null +++ b/rtl/netbsd/ptypes.inc @@ -0,0 +1,63 @@ +{ + $Id$ + This file is part of the Free Pascal run time library. + Copyright (c) 2001 by Free Pascal development team + + This file implements all the base types and limits required + for a minimal POSIX compliant subset required to port the compiler + to a new OS. + + See the file COPYING.FPC, included in this distribution, + for details about the copyright. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + **********************************************************************} + +{***********************************************************************} +{ POSIX TYPE DEFINITIONS } +{***********************************************************************} + +type + { the following type definitions are compiler dependant } + { and system dependant } + + cint8 = shortint; + cuint8 = byte; + cuint16= word; + cint16 = smallint; + cint32 = longint; + cuint32= cardinal; + cint64 = int64; +{$ifndef VER_1_0} + cuint64= qword; +{$endif} + + cint = longint; { minimum range is : 32-bit } + cuint = Cardinal; { minimum range is : 32-bit } + clong = longint; + culong = Cardinal; + + dev_t = cuint32; { used for device numbers } + gid_t = cuint32; { used for group IDs } + ino_t = clong; { used for file serial numbers } + mode_t = cuint32; { used for file attributes } + nlink_t = cuint32; { used for link counts } + off_t = cint64; { used for file sizes } + pid_t = cint32; { used as process identifier } + size_t = cuint32; { as definied in the C standard} + ssize_t = cint32; { used by function for returning number of bytes } + uid_t = cuint32; { used for user ID type } + + time_t = clong; { used for returning the time } + socklen_t= cuint32; + +CONST + { System limits, POSIX value in parentheses, used for buffer and stack allocation } + ARG_MAX = (256*1024); {4096} { Maximum number of argument size } + NAME_MAX = 255; {14} { Maximum number of bytes in filename } + PATH_MAX = 1024; {255} { Maximum number of bytes in pathname } + + SYS_NMLN = 32; {BSD utsname struct limit} diff --git a/rtl/openbsd/ptypes.inc b/rtl/openbsd/ptypes.inc new file mode 100644 index 0000000000..1cc9b9e1b4 --- /dev/null +++ b/rtl/openbsd/ptypes.inc @@ -0,0 +1,63 @@ +{ + $Id$ + This file is part of the Free Pascal run time library. + Copyright (c) 2001 by Free Pascal development team + + This file implements all the base types and limits required + for a minimal POSIX compliant subset required to port the compiler + to a new OS. + + See the file COPYING.FPC, included in this distribution, + for details about the copyright. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + **********************************************************************} + +{***********************************************************************} +{ POSIX TYPE DEFINITIONS } +{***********************************************************************} + +type + { the following type definitions are compiler dependant } + { and system dependant } + + cint8 = shortint; + cuint8 = byte; + cuint16= word; + cint16 = smallint; + cint32 = longint; + cuint32= cardinal; + cint64 = int64; +{$ifndef VER_1_0} + cuint64= qword; +{$endif} + + cint = longint; { minimum range is : 32-bit } + cuint = Cardinal; { minimum range is : 32-bit } + clong = longint; + culong = Cardinal; + + dev_t = cint32; { used for device numbers } + gid_t = cuint32; { used for group IDs } + ino_t = cuint32; { used for file serial numbers } + mode_t = cuint16; { used for file attributes } + nlink_t = cuint16; { used for link counts } + off_t = cint64; { used for file sizes } + pid_t = cint32; { used as process identifier } + size_t = cuint32; { as definied in the C standard} + ssize_t = cint32; { used by function for returning number of bytes } + uid_t = cuint32; { used for user ID type } + + time_t = clong; { used for returning the time } + socklen_t= cuint32; + +CONST + { System limits, POSIX value in parentheses, used for buffer and stack allocation } + ARG_MAX = 256*1024;{4096} { Maximum number of argument size } + NAME_MAX = 255; {14} { Maximum number of bytes in filename } + PATH_MAX = 1024; {255} { Maximum number of bytes in pathname } + + SYS_NMLN = 256; {BSD utsname struct limit}