* fix deprecated stat calls to use the fp<> ones and not the other way around

git-svn-id: trunk@8401 -

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;

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;
 
 

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;

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