Browse Source

* TSysParam + result moved to -h

marco 23 years ago
parent
commit
c748db28c0
2 changed files with 66 additions and 11 deletions
  1. 4 11
      rtl/linux/i386/syscall.inc
  2. 62 0
      rtl/linux/i386/syscallh.inc

+ 4 - 11
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}
 {$ASMMODE ATT}
 
 
@@ -237,7 +227,10 @@ end;
 
 
 {
 {
   $Log$
   $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
    * New syscall.inc
 
 
 
 

+ 62 - 0
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.
+
+
+}