paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 21:09:24 +02: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;
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;

6
rtl/linux/unxsysc.inc
View File

@ -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;

6
rtl/netbsd/unxsysc.inc
View File

@ -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;

6
rtl/unix/unix.pp
View File

@ -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