paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-07 12:00:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* moved fplstat(ansistring,pstat) overload to bunxovl(h).inc, so all

Browse Source 
platforms have (fixes compilation for FPC_USE_LIBC platforms after
    r11681)

git-svn-id: trunk@11693 -
This commit is contained in:
Jonas Maebe 2008-09-02 10:14:45 +00:00
parent 5c33285229
commit 7aee2f3d71
5 changed files with 10 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/bsd/bunxsysc.inc
View File

@ -446,15 +446,6 @@ begin
fpLStat:=do_syscall(syscall_nr_lstat,TSysParam(path),TSysParam(info));
end;
Function fpLstat(Filename: ansistring;Info:pstat):cint;
{
Get all information on a link (the link itself), and return it in info.
}
begin
fpLStat:=do_syscall(syscall_nr_lstat,TSysParam(pchar(filename)),TSysParam(info));
end;
function fpNice(N:cint):cint;
{
Set process priority. A positive N means a lower priority.

15
rtl/linux/bunxsysc.inc
View File

@ -415,21 +415,6 @@ begin
TSysParam(path),TSysParam(info));
end;
Function fpLstat(Filename: ansistring;Info:pstat):cint;
{
Get all information on a link (the link itself), and return it in info.
}
begin
fpLStat:=do_syscall(
{$ifdef cpux86_64}
syscall_nr_lstat,
{$else}
syscall_nr_lstat64,
{$endif}
TSysParam(pchar(filename)),TSysParam(info));
end;
function fpNice(N:cint):cint;
{

1
rtl/unix/bunxh.inc
View File

@ -93,7 +93,6 @@ Type TGrpArr = Array [0..0] of TGid; { C style array workarounds}
Function FpIOCtl (Handle:cint;Ndx: TIOCtlRequest; Data: Pointer):cint; external name 'FPC_SYSC_IOCTL';
Function FpNanoSleep (req : ptimespec;rem : ptimespec):cint; external name 'FPC_SYSC_NANOSLEEP';
Function fpLstat(path:pchar;Info:pstat):cint;
Function fpLstat(Filename: ansistring;Info:pstat):cint;
Function fpSymlink(oldname,newname:pchar):cint;
Function fpReadLink(name,linkname:pchar;maxlen:size_t):cint; external name 'FPC_SYSC_READLINK';

9
rtl/unix/bunxovl.inc
View File

@ -110,13 +110,18 @@ begin
FpStat:=FpStat(pchar(path),buf);
End;
Function fpLstat (path:pchar;var Info:stat):cint;
Function fpLstat (path: Ansistring; Info: pstat):cint; inline;
begin
fplstat:=fplstat(pchar(path), info);
end;
Function fpLstat (path:pchar;var Info:stat):cint; inline;
begin
fpLstat:=fplstat(path,@info);
end;
Function fpLstat (Filename: ansistring;var Info:stat):cint;
Function fpLstat (Filename: ansistring;var Info:stat):cint; inline;
begin
fpLstat:=fplstat(filename,@info);

5
rtl/unix/bunxovlh.inc
View File

@ -37,8 +37,9 @@ Function FpRmdir (path : AnsiString): cInt; inline;
Function FpRename (old : AnsiString;newpath: AnsiString): cInt; inline;
Function FpStat (path: AnsiString; var buf : stat): cInt; inline;
Function FpStat (path: String; var buf : stat): cInt;
Function fpLstat (path:pchar;var Info:stat):cint;
Function fpLstat (Filename: ansistring;var Info:stat):cint;
Function fpLstat (path: Ansistring; Info: pstat):cint; inline;
Function fpLstat (path:pchar;var Info:stat):cint; inline;
Function fpLstat (Filename: ansistring;var Info:stat):cint; inline;
Function FpAccess (pathname : AnsiString; aMode : cInt): cInt; inline;
function FpWaitPid (pid : TPid; Var Status : cInt; Options : cint) : TPid;