paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 05:47:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@8401 -
This commit is contained in:
Almindor 2007-09-08 09:55:35 +00:00
parent 5cffd5d22b
commit 148255b5cf
4 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/freebsd/unxsysc.inc
View File

@ -64,7 +64,7 @@ end;
Function fsync (fd : cint) : cint; Function fsync (fd : cint) : cint;
begin begin
fsync:=do_syscall(syscall_nr_fsync,fd); fsync:=fpfSync(fd);
end; end;
Function fpFlock (fd,mode : longint) : cint; Function fpFlock (fd,mode : longint) : cint;
@ -81,7 +81,7 @@ Function fStatFS(Fd:Longint;Var Info:tstatfs):cint;
} }
begin begin
fStatFS:=do_syscall(syscall_nr_fstatfs,fd,longint(@info)); fStatFS:=fpfStatFS(fd, @info);
end; end;
Function StatFS(path:pchar;Var Info:tstatfs):cint; Function StatFS(path:pchar;Var Info:tstatfs):cint;
@ -92,7 +92,7 @@ Function StatFS(path:pchar;Var Info:tstatfs):cint;
} }
begin begin
StatFS:=do_syscall(syscall_nr_statfs,longint(path),longint(@info)); StatFS:=fpStatFS(path, @info);
end; end;
// needs oldfpccall; // needs oldfpccall;

6
rtl/linux/unxsysc.inc
View File

@ -15,7 +15,7 @@
Function fsync (fd : cint) : cint; Function fsync (fd : cint) : cint;
begin begin
fsync := do_SysCall(syscall_nr_fsync, fd); fsync := fpFSync(fd);
end; end;
Function fpFlock (fd,mode : cint) : cint; Function fpFlock (fd,mode : cint) : cint;
@ -31,7 +31,7 @@ Function StatFS(Path:Pchar;Var Info:tstatfs):cint;
investigate. investigate.
} }
begin begin
StatFS:=(do_SysCall(SysCall_nr_statfs,TSysParam(path),TSysParam(@Info))); StatFS:=fpStatFS(Path, @Info);;
end; end;
Function fStatFS(Fd:cint;Var Info:tstatfs):cint; Function fStatFS(Fd:cint;Var Info:tstatfs):cint;
@ -41,7 +41,7 @@ Function fStatFS(Fd:cint;Var Info:tstatfs):cint;
you wish to investigate. you wish to investigate.
} }
begin begin
fStatFS:=(do_SysCall(SysCall_nr_fstatfs,fd,TSysParam(@info))); fStatFS:=fpfStatFS(fd, @Info);
end; end;

6
rtl/netbsd/unxsysc.inc
View File

@ -65,7 +65,7 @@ end;
Function fsync (fd : cint) : cint; Function fsync (fd : cint) : cint;
begin begin
fsync:=do_syscall(syscall_nr_fsync,fd); fsync:=fpfsync(fd);
end; end;
Function fpFlock (fd,mode : longint) : cint; Function fpFlock (fd,mode : longint) : cint;
@ -82,7 +82,7 @@ Function fStatFS(Fd:Longint;Var Info:tstatfs):cint;
} }
begin begin
fStatFS:=do_syscall(syscall_nr_fstatfs,fd,longint(@info)); fStatFS:=fpfstatFS(fd, @info);
end; end;
Function StatFS(path:pchar;Var Info:tstatfs):cint; Function StatFS(path:pchar;Var Info:tstatfs):cint;
@ -93,7 +93,7 @@ Function StatFS(path:pchar;Var Info:tstatfs):cint;
} }
begin begin
StatFS:=do_syscall(syscall_nr_statfs,longint(path),longint(@info)); StatFS:=fpStatFS(path, @info);
end; end;
// needs oldfpccall; // needs oldfpccall;

6
rtl/unix/unix.pp
View File

@ -1316,19 +1316,19 @@ End;
Function fpfStatFS (Fd: cint; Info:pstatfs):cint; Function fpfStatFS (Fd: cint; Info:pstatfs):cint;
begin begin
fpfstatfs:=fstatfs(fd,info^); fpfstatfs:=do_SysCall(SysCall_nr_fstatfs,fd,TSysParam(info))
end; end;
Function fpStatFS (Path:pchar; Info:pstatfs):cint; Function fpStatFS (Path:pchar; Info:pstatfs):cint;
begin begin
fpstatfs:=statfs(Path,info^); fpstatfs:=do_SysCall(SysCall_nr_statfs,TSysParam(path),TSysParam(Info))
end; end;
Function fpfsync (fd : cint) : cint; Function fpfsync (fd : cint) : cint;
begin begin
fpfsync:=fsync(fd); fpfsync:=do_SysCall(syscall_nr_fsync, fd);
end; end;
Initialization Initialization