Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Tree: c748db28c0
Branches Tags
freepascal.comp...
/
rtl
/
linux
/
i386
/
syscallh.inc

syscallh.inc 2.2 KB
History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162 
  1. {
    2. 

  2.     $Id$
    3. 

  3.     Copyright (c) 2002 by Marco van de Voort
    4. 

  4. 

  5.     Header for syscall in system unit for i386 *BSD.
    6. 

  6. 

  7.     This program is free software; you can redistribute it and/or modify
    8. 

  8.     it under the terms of the GNU General Public License as published by
    9. 

  9.     the Free Software Foundation; either version 2 of the License, or
    10. 

  10.     (at your option) any later version.
    11. 

  11. 

  12.     This program is distributed in the hope that it will be useful,
    13. 

  13.     but WITHOUT ANY WARRANTY; without even the implied warranty of
    14. 

  14.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    15. 

  15.     GNU General Public License for more details.
    16. 

  16. 

  17.     You should have received a copy of the GNU General Public License
    18. 

  18.     along with this program; if not, write to the Free Software
    19. 

  19.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
    20. 

  20. 

  21.  ****************************************************************************
    22. 

  22. 

  23. }
    24. 

  24. 

  25. Type
    26. 

  26. 

  27.   TSysResult = longint; // all platforms, cint=32-bit.
    28. 

  28. 			// On platforms with off_t =64-bit, people should
    29. 

  29. 			// use int64, and typecast all calls that don't 
    30. 

  30. 			// return off_t to cint.
    31. 

  31. 

  32. // I don't think this is going to work on several platforms 
    33. 

  33. // 64-bit machines don't have only 64-bit params.
    34. 

  34. 

  35.   TSysParam  = Longint;
    36. 

  36. 

  37. function Do_SysCall(sysnr:LONGINT):longint;  external name 'FPC_DOSYS0';
    38. 

  38. function Do_SysCall(sysnr,param1:longint):longint; external name 'FPC_DOSYS1';
    39. 

  39. function Do_SysCall(sysnr,param1,param2:LONGINT):longint;  external name 'FPC_DOSYS2';
    40. 

  40. function Do_SysCall(sysnr,param1,param2,param3:LONGINT):longint; external name 'FPC_DOSYS3';
    41. 

  41. function Do_SysCall(sysnr,param1,param2,param3,param4:LONGINT):longint; external name 'FPC_DOSYS4';
    42. 

  42. function Do_SysCall(sysnr,param1,param2,param3,param4,param5:LONGINT):longint;  external name 'FPC_DOSYS5';
    43. 

  43. 

  44. {
    45. 

  45.   $Log$
    46. 

  46.   Revision 1.1  2002-11-16 15:37:47  marco
    47. 

  47.    * TSysParam + result moved to -h
    48. 

  48. 

  49.   Revision 1.4  2002/10/16 18:44:00  marco
    50. 

  50.    * and again for ftruncate (sigh)
    51. 

  51. 

  52.   Revision 1.3  2002/10/16 18:41:14  marco
    53. 

  53.    * the 7 param syscall (for lseek and truncate) now returns a int64.
    54. 

  54. 

  55.   Revision 1.2  2002/09/07 16:01:17  peter
    56. 

  56.     * old logs removed and tabs fixed
    57. 

  57. 

  58.   Revision 1.1  2002/08/20 08:28:14  marco
    59. 

  59.    * Updates for new errno scheme.
    60. 

  60. 

  61. 

  62. }
    63.