Bläddra i källkod

* FPC_USE_LIBC

marco 21 år sedan
förälder
incheckning
d657b168c7
3 ändrade filer med 26 tillägg och 9 borttagningar
  1. 15 2
      rtl/linux/baseunix.pp
  2. 5 5
      rtl/linux/system.pp
  3. 6 2
      rtl/linux/unixsysc.inc

+ 15 - 2
rtl/linux/baseunix.pp

@@ -23,9 +23,19 @@ Interface
 {$define posixworkaround}	// Temporary ugly workaround for signal handler.
 				// (mainly until baseunix migration is complete)
 
+{$ifndef FPC_USE_LIBC}   
+{$define FPC_USE_SYSCALL}
+{$endif}
+
 {$i errno.inc}		{ Error numbers }
 {$i bunxtype.inc}	{ Types }
-{$i bunxh.inc}		{ Functions}
+{$ifdef FPC_USE_LIBC}
+{$i oscdeclh.inc}
+{$ELSE}
+{$i bunxh.inc}          { Functions}
+{$ENDIF}
+
+{$i bunxovlh.inc}
 
 function fpgeterrno:longint;
 procedure fpseterrno(err:longint);
@@ -46,7 +56,10 @@ end.
 
 {
   $Log$
-  Revision 1.5  2003-12-11 18:20:50  florian
+  Revision 1.6  2003-12-30 12:36:56  marco
+   * FPC_USE_LIBC
+
+  Revision 1.5  2003/12/11 18:20:50  florian
     * replaced VER1_0 by HASGLOBALPROPERTY
 
   Revision 1.4  2003/12/10 17:14:06  marco

+ 5 - 5
rtl/linux/system.pp

@@ -22,16 +22,13 @@
 { If you use an aout system, set the conditional AOUT}
 { $Define AOUT}
 
-{$ifdef BSD}
-Unit {$ifdef VER1_0}SysBSD{$else}System{$endif};
-{$else}
 Unit {$ifdef VER1_0}Syslinux{$else}System{$endif};
-{$endif}
 
 Interface
 {$define oldreaddir}
 {$define usedomain}
 {$define posixworkaround}
+{$define FPC_IS_SYSTEM}
 
 {$I sysunixh.inc}
 
@@ -136,7 +133,10 @@ End.
 
 {
   $Log$
-  Revision 1.8  2003-09-14 20:15:01  marco
+  Revision 1.9  2003-12-30 12:36:56  marco
+   * FPC_USE_LIBC
+
+  Revision 1.8  2003/09/14 20:15:01  marco
    * Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
 
   Revision 1.7  2003/04/30 22:11:06  florian

+ 6 - 2
rtl/linux/unixsysc.inc

@@ -24,6 +24,7 @@ begin
   flock:=do_Syscall(Syscall_nr_flock,fd,mode);
 end;
 
+{
 Function StatFS(Path:Pathstr;Var Info:tstatfs):cint;
 {
   Get all information on a fileSystem, and return it in Info.
@@ -34,7 +35,7 @@ begin
   path:=path+#0;
   StatFS:=(do_SysCall(SysCall_nr_statfs,longint(@path[1]),longint(@Info)));
 end;
-
+}
 Function fStatFS(Fd:cint;Var Info:tstatfs):cint;
 {
   Get all information on a fileSystem, and return it in Info.
@@ -110,7 +111,10 @@ end;
 
 {
   $Log$
-  Revision 1.21  2003-11-19 11:46:55  marco
+  Revision 1.22  2003-12-30 12:36:56  marco
+   * FPC_USE_LIBC
+
+  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)