Browse Source

* changes due to the previous *BSD changes. Mainly moving constants from
unix to systypes.inc (which acts as unxtypes.inc)

marco 22 years ago
parent
commit
7b12dc7b86
3 changed files with 42 additions and 7 deletions
  1. 9 4
      rtl/linux/ossysch.inc
  2. 7 3
      rtl/linux/unixsysc.inc
  3. 26 0
      rtl/linux/unxsysch.inc

+ 9 - 4
rtl/linux/ossysch.inc

@@ -15,17 +15,22 @@
  ****************************************************************************
 }
 
-Function Fpmmap(adr:pointer;len:size_t;prot:cint;flags:cint;fd:cint;off:off_t):pointer;  external name 'FPC_SYSC_MMAP';
-Function Fpmunmap(adr:pointer;len:size_t):cint; external name 'FPC_SYSC_MUNMAP';
+//Function Fpmmap(adr:pointer;len:size_t;prot:cint;flags:cint;fd:cint;off:off_t):pointer;  external name 'FPC_SYSC_MMAP';
+//Function Fpmunmap(adr:pointer;len:size_t):cint; external name 'FPC_SYSC_MUNMAP';
+//function fpgettimeofday(tp: ptimeval;tzp:ptimezone):cint; external name 'FPC_SYSC_GETTIMEOFDAY';
+
 Function FpIOCtl(handle:cint;ndx:culong;Data: Pointer):cint;  external name 'FPC_SYSC_IOCTL';
 Function FpGetPid:pid_t;   external name 'FPC_SYSC_GETPID';
 Function FpReadLink(name,linkname:pchar;maxlen:size_t):cint;  external name 'FPC_SYSC_READLINK';
 Function FpNanoSleep(req : ptimespec;rem : ptimespec):cint; external name 'FPC_SYSC_NANOSLEEP';
-//function fpgettimeofday(tp: ptimeval;tzp:ptimezone):cint; external name 'FPC_SYSC_GETTIMEOFDAY';
 
 {
  $Log$
- Revision 1.5  2003-09-27 13:45:58  peter
+ Revision 1.6  2003-11-19 11:46:55  marco
+  * changes due to the previous *BSD changes. Mainly moving constants from
+    unix to systypes.inc (which acts as unxtypes.inc)
+
+ Revision 1.5  2003/09/27 13:45:58  peter
    * fpnanosleep exported in baseunix
    * fpnanosleep has pointer arguments to be C compliant
 

+ 7 - 3
rtl/linux/unixsysc.inc

@@ -14,9 +14,9 @@
 **********************************************************************}
 
 
-Function  fdFlush (fd : cint) : cint;
+Function  fsync (fd : cint) : cint;
 begin
-  fdFlush := do_SysCall(syscall_nr_fsync, fd);
+  fsync := do_SysCall(syscall_nr_fsync, fd);
 end;
 
 Function  Flock (fd,mode : cint) : cint;
@@ -110,7 +110,11 @@ end;
 
 {
   $Log$
-  Revision 1.20  2003-11-17 10:21:47  marco
+  Revision 1.21  2003-11-19 11:46:55  marco
+   * changes due to the previous *BSD changes. Mainly moving constants from
+     unix to systypes.inc (which acts as unxtypes.inc)
+
+  Revision 1.20  2003/11/17 10:21:47  marco
    * small fixes for changing unit unix again
 
   Revision 1.19  2003/11/17 10:05:51  marco

+ 26 - 0
rtl/linux/unxsysch.inc

@@ -1,3 +1,21 @@
+{
+    $Id$
+    Copyright (c) 2002 by Marco van de Voort
+
+    deeper calls exported by unit unix    
+
+    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.
+
+ ****************************************************************************
+}
+
+Function Fpmmap(adr:pointer;len:size_t;prot:cint;flags:cint;fd:cint;off:off_t):pointer; external name 'FPC_SYSC_MMAP';
+Function Fpmunmap(adr:pointer;len:size_t):cint; external name 'FPC_SYSC_MUNMAP';
 
 function fpgettimeofday(tp: ptimeval;tzp:ptimezone):cint; external name 'FPC_SYSC_GETTIMEOFDAY';
 function fpNice(N:cint):cint;
@@ -9,3 +27,11 @@ Function fpSymlink(oldname,newname:pchar):cint;
 Function fpReadLink(name,linkname:pchar;maxlen:size_t):cint;
 Function fpReadLink(name:PathStr):PathStr;
 
+{
+  $Log$
+  Revision 1.4  2003-11-19 11:46:55  marco
+   * changes due to the previous *BSD changes. Mainly moving constants from
+     unix to systypes.inc (which acts as unxtypes.inc)
+
+
+}