From 148255b5cf83af373c53badc55ac552e61d629f4 Mon Sep 17 00:00:00 2001
From: Almindor <almindor@gmail.com>
Date: Sat, 8 Sep 2007 09:55:35 +0000
Subject: [PATCH] * fix deprecated stat calls to use the fp<> ones and not the
 other way around

git-svn-id: trunk@8401 -
---
 rtl/freebsd/unxsysc.inc | 6 +++---
 rtl/linux/unxsysc.inc   | 6 +++---
 rtl/netbsd/unxsysc.inc  | 6 +++---
 rtl/unix/unix.pp        | 6 +++---
 4 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/rtl/freebsd/unxsysc.inc b/rtl/freebsd/unxsysc.inc
index e8d9bc2b31..11113ad372 100644
--- a/rtl/freebsd/unxsysc.inc
+++ b/rtl/freebsd/unxsysc.inc
@@ -64,7 +64,7 @@ end;
 Function  fsync (fd : cint) : cint;
 
 begin
-  fsync:=do_syscall(syscall_nr_fsync,fd);
+  fsync:=fpfSync(fd);
 end;
 
 Function  fpFlock (fd,mode : longint) : cint;
@@ -81,7 +81,7 @@ Function fStatFS(Fd:Longint;Var Info:tstatfs):cint;
 }
 
 begin
- fStatFS:=do_syscall(syscall_nr_fstatfs,fd,longint(@info));
+ fStatFS:=fpfStatFS(fd, @info);
 end;
 
 Function StatFS(path:pchar;Var Info:tstatfs):cint;
@@ -92,7 +92,7 @@ Function StatFS(path:pchar;Var Info:tstatfs):cint;
 }
 
 begin
- StatFS:=do_syscall(syscall_nr_statfs,longint(path),longint(@info));
+ StatFS:=fpStatFS(path, @info);
 end;
 
 // needs oldfpccall;
diff --git a/rtl/linux/unxsysc.inc b/rtl/linux/unxsysc.inc
index d7bd80f60b..4069401890 100644
--- a/rtl/linux/unxsysc.inc
+++ b/rtl/linux/unxsysc.inc
@@ -15,7 +15,7 @@
 
 Function  fsync (fd : cint) : cint;
 begin
-  fsync := do_SysCall(syscall_nr_fsync, fd);
+  fsync := fpFSync(fd);
 end;
 
 Function  fpFlock (fd,mode : cint) : cint;
@@ -31,7 +31,7 @@ Function StatFS(Path:Pchar;Var Info:tstatfs):cint;
   investigate.
 }
 begin
-  StatFS:=(do_SysCall(SysCall_nr_statfs,TSysParam(path),TSysParam(@Info)));
+  StatFS:=fpStatFS(Path, @Info);;
 end;
 
 Function fStatFS(Fd:cint;Var Info:tstatfs):cint;
@@ -41,7 +41,7 @@ Function fStatFS(Fd:cint;Var Info:tstatfs):cint;
   you wish to investigate.
 }
 begin
-  fStatFS:=(do_SysCall(SysCall_nr_fstatfs,fd,TSysParam(@info)));
+  fStatFS:=fpfStatFS(fd, @Info);
 end;
 
 
diff --git a/rtl/netbsd/unxsysc.inc b/rtl/netbsd/unxsysc.inc
index b445fb23c6..53eab80244 100644
--- a/rtl/netbsd/unxsysc.inc
+++ b/rtl/netbsd/unxsysc.inc
@@ -65,7 +65,7 @@ end;
 Function  fsync (fd : cint) : cint;
 
 begin
-  fsync:=do_syscall(syscall_nr_fsync,fd);
+  fsync:=fpfsync(fd);
 end;
 
 Function  fpFlock (fd,mode : longint) : cint;
@@ -82,7 +82,7 @@ Function fStatFS(Fd:Longint;Var Info:tstatfs):cint;
 }
 
 begin
- fStatFS:=do_syscall(syscall_nr_fstatfs,fd,longint(@info));
+ fStatFS:=fpfstatFS(fd, @info);
 end;
 
 Function StatFS(path:pchar;Var Info:tstatfs):cint;
@@ -93,7 +93,7 @@ Function StatFS(path:pchar;Var Info:tstatfs):cint;
 }
 
 begin
- StatFS:=do_syscall(syscall_nr_statfs,longint(path),longint(@info));
+ StatFS:=fpStatFS(path, @info);
 end;
 
 // needs oldfpccall;
diff --git a/rtl/unix/unix.pp b/rtl/unix/unix.pp
index 0e48b73f56..abdfad5fcf 100644
--- a/rtl/unix/unix.pp
+++ b/rtl/unix/unix.pp
@@ -1316,19 +1316,19 @@ End;
 
 Function  fpfStatFS (Fd: cint; Info:pstatfs):cint;
 begin
-  fpfstatfs:=fstatfs(fd,info^);
+  fpfstatfs:=do_SysCall(SysCall_nr_fstatfs,fd,TSysParam(info))
 end;
 
 Function  fpStatFS  (Path:pchar; Info:pstatfs):cint;
 
 begin
-  fpstatfs:=statfs(Path,info^);
+  fpstatfs:=do_SysCall(SysCall_nr_statfs,TSysParam(path),TSysParam(Info))
 end;
 
 Function  fpfsync (fd : cint) : cint;
 
 begin
-  fpfsync:=fsync(fd);
+  fpfsync:=do_SysCall(syscall_nr_fsync, fd);
 end;
 
 Initialization