- No longer needed.

fcl/linux/oscalls.inc

@@ -1,78 +0,0 @@
-{
-    $Id$
-    This file is part of the Free Component Library (FCL)
-    Copyright (c) 1998 by the Free Pascal development team
-
-    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.
-
- **********************************************************************}
-
-{
-  Implementation of some system calls.
-}
-
-Type SysCallRegs = Record
-       reg1,reg2,reg3,reg4,reg5,reg6 : Longint;
-     end;
-
-
-Const
-  { Needed call numbers }
-  syscall_nr_read      = 3; 
-  syscall_nr_write     = 4;
-  syscall_nr_open      = 5;
-  syscall_nr_close     = 6;
-  syscall_nr_lseek     = 19;
-  syscall_nr_ftruncate = 93;
-
-
-  { Things for OPEN call - after linux/fcntl.h }
-  Open_Accmode  = 3;
-  Open_RdOnly   = 0;
-  Open_WrOnly   = 1;
-  Open_RdWr     = 2;
-  Open_Creat    = 1 shl 6;
-  Open_Excl     = 2 shl 6;
-  Open_NoCtty   = 4 shl 6;
-  Open_Trunc    = 1 shl 9;
-  Open_Append   = 2 shl 9;
-  Open_NonBlock = 4 shl 9;
-  Open_NDelay   = Open_NonBlock;
-  Open_Sync     = 1 shl 12;
-
-
-Procedure Do_SysCall( callnr:longint;var regs : SysCallregs );assembler;
-{
-  This function puts the registers in place, does the call, and then
-  copies back the registers as they are after the SysCall.
-}
-{$ASMMODE ATT}
-asm
-{ load the registers... }
-  movl 12(%ebp),%eax
-  movl 4(%eax),%ebx
-  movl 8(%eax),%ecx
-  movl 12(%eax),%edx
-  movl 16(%eax),%esi
-  movl 20(%eax),%edi
-{ set the call number }
-  movl 8(%ebp),%eax
-{ Go ! }
-  int $0x80
-{ Put back the registers... }
-  pushl %eax
-  movl 12(%ebp),%eax
-  movl %edi,20(%eax)
-  movl %esi,16(%eax)
-  movl %edx,12(%eax)
-  movl %ecx,8(%eax)
-  movl %ebx,4(%eax)
-  popl %ebx
-  movl %ebx,(%eax)
-end;
-{$ASMMODE DEFAULT}