diff --git a/rtl/linux/i386/syscall.inc b/rtl/linux/i386/syscall.inc index 6453162681..d19fa05368 100644 --- a/rtl/linux/i386/syscall.inc +++ b/rtl/linux/i386/syscall.inc @@ -16,16 +16,6 @@ **********************************************************************} -Type - - TSysResult = longint; // all platforms, cint=32-bit. - // On platforms with off_t =64-bit, people should - // use int64, and typecast all other calls to cint. - -// I don't think this is going to work on several platforms 64-bit machines -// don't have only 64-bit params. - - TSysParam = Longint; {$ASMMODE ATT} @@ -237,7 +227,10 @@ end; { $Log$ - Revision 1.1 2002-11-12 13:31:32 marco + Revision 1.2 2002-11-16 15:37:47 marco + * TSysParam + result moved to -h + + Revision 1.1 2002/11/12 13:31:32 marco * New syscall.inc diff --git a/rtl/linux/i386/syscallh.inc b/rtl/linux/i386/syscallh.inc new file mode 100644 index 0000000000..f99d22bfcc --- /dev/null +++ b/rtl/linux/i386/syscallh.inc @@ -0,0 +1,62 @@ +{ + $Id$ + Copyright (c) 2002 by Marco van de Voort + + Header for syscall in system unit for i386 *BSD. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + 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. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + + **************************************************************************** + +} + +Type + + TSysResult = longint; // all platforms, cint=32-bit. + // On platforms with off_t =64-bit, people should + // use int64, and typecast all calls that don't + // return off_t to cint. + +// I don't think this is going to work on several platforms +// 64-bit machines don't have only 64-bit params. + + TSysParam = Longint; + +function Do_SysCall(sysnr:LONGINT):longint; external name 'FPC_DOSYS0'; +function Do_SysCall(sysnr,param1:longint):longint; external name 'FPC_DOSYS1'; +function Do_SysCall(sysnr,param1,param2:LONGINT):longint; external name 'FPC_DOSYS2'; +function Do_SysCall(sysnr,param1,param2,param3:LONGINT):longint; external name 'FPC_DOSYS3'; +function Do_SysCall(sysnr,param1,param2,param3,param4:LONGINT):longint; external name 'FPC_DOSYS4'; +function Do_SysCall(sysnr,param1,param2,param3,param4,param5:LONGINT):longint; external name 'FPC_DOSYS5'; + +{ + $Log$ + Revision 1.1 2002-11-16 15:37:47 marco + * TSysParam + result moved to -h + + Revision 1.4 2002/10/16 18:44:00 marco + * and again for ftruncate (sigh) + + Revision 1.3 2002/10/16 18:41:14 marco + * the 7 param syscall (for lseek and truncate) now returns a int64. + + Revision 1.2 2002/09/07 16:01:17 peter + * old logs removed and tabs fixed + + Revision 1.1 2002/08/20 08:28:14 marco + * Updates for new errno scheme. + + +}