syscallh.inc 2.7 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667
  1. {
  2. $Id$
  3. Copyright (c) 2002 by Marco van de Voort
  4. Header for syscall in system unit for i386 *BSD.
  5. This program is free software; you can redistribute it and/or modify
  6. it under the terms of the GNU General Public License as published by
  7. the Free Software Foundation; either version 2 of the License, or
  8. (at your option) any later version.
  9. This program is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  12. GNU General Public License for more details.
  13. You should have received a copy of the GNU General Public License
  14. along with this program; if not, write to the Free Software
  15. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  16. ****************************************************************************
  17. }
  18. Type
  19. TSysResult = longint; // all platforms, cint=32-bit.
  20. // On platforms with off_t =64-bit, people should
  21. // use int64, and typecast all calls that don't
  22. // return off_t to cint.
  23. // I don't think this is going to work on several platforms
  24. // 64-bit machines don't have only 64-bit params.
  25. TSysParam = Longint;
  26. function Do_SysCall(sysnr:TSysParam):TSysResult; external name 'FPC_DOSYS0';
  27. function Do_SysCall(sysnr,param1:TSysParam):TSysResult; external name 'FPC_DOSYS1';
  28. //function Do_SysCall(sysnr,param1:integer):TSysResult; external name 'FPC_DOSYS1w';
  29. function Do_SysCall(sysnr,param1,param2:TSysParam):TSysResult; external name 'FPC_DOSYS2';
  30. function Do_SysCall(sysnr,param1,param2,param3:TSysParam):TSysResult; external name 'FPC_DOSYS3';
  31. function Do_SysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; external name 'FPC_DOSYS4';
  32. function Do_SysCall(sysnr,param1,param2,param3,param4,param5:TSysParam):TSysResult; external name 'FPC_DOSYS5';
  33. function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):int64; external name 'FPC_DOSYS6';
  34. function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6,param7:TSysParam):int64; external name 'FPC_DOSYS7';
  35. {
  36. $Log$
  37. Revision 1.6 2003-05-30 19:58:40 marco
  38. * Getting NetBSD/i386 to compile.
  39. Revision 1.5 2003/01/05 19:01:28 marco
  40. * FreeBSD compiles now with baseunix mods.
  41. Revision 1.4 2002/10/16 18:44:00 marco
  42. * and again for ftruncate (sigh)
  43. Revision 1.3 2002/10/16 18:41:14 marco
  44. * the 7 param syscall (for lseek and truncate) now returns a int64.
  45. Revision 1.2 2002/09/07 16:01:17 peter
  46. * old logs removed and tabs fixed
  47. Revision 1.1 2002/08/20 08:28:14 marco
  48. * Updates for new errno scheme.
  49. }