paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 15:10:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed FPC_USE_LIBC on linux

Browse Source 
git-svn-id: trunk@1218 -
This commit is contained in:
florian 2005-09-28 19:30:55 +00:00
parent dcd346f0bb
commit a78703fb5a
3 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/linux/osmacro.inc
View File

@ -100,19 +100,19 @@ function __lxstat64(__ver : cint; FileName: PChar; var __stat: tstat): cint; cde
function __xmknod(__ver : cint; Pathname: PChar; Mode: mode_t; var Device: dev_t): cint; cdecl; external clib name '__xmknod'; function __xmknod(__ver : cint; Pathname: PChar; Mode: mode_t; var Device: dev_t): cint; cdecl; external clib name '__xmknod';
} }
{$define FPC_HAS_BASEUNIX_STAT} {$define FPC_HAS_BASEUNIX_STAT}
function FpFstat (fd : cint; var sb : stat): cint; function FpFstat(fd : cint; var sb : stat): cint;inline;
begin begin
__fxstat(_STAT_VER,fd,sb); __fxstat(_STAT_VER,fd,sb);
end; end;
function fpLstat (path:pchar;Info:pstat):cint; function fpLstat(path:pchar;Info:pstat):cint;inline;
begin begin
__lxstat(_STAT_VER,path,Info^); __lxstat(_STAT_VER,path,Info^);
end; end;
function FpStat (path: pchar; var buf : stat): cint; function FpStat(path: pchar; var buf : stat): cint;inline;
begin begin
__xstat(_STAT_VER,path,buf); __xstat(_STAT_VER,path,buf);
end; end;

1
rtl/unix/baseunix.pp
View File

@ -33,6 +33,7 @@ Uses UnixType;
{$ifdef FPC_USE_LIBC} {$ifdef FPC_USE_LIBC}
const clib = 'c'; const clib = 'c';
{$define FPC_IN_BASEUNIX}
{$i oscdeclh.inc} {$i oscdeclh.inc}
{$ELSE} {$ELSE}
{$i bunxh.inc} { Functions} {$i bunxh.inc} { Functions}

9
rtl/unix/oscdeclh.inc
View File

@ -88,9 +88,12 @@ Type TGrpArr = Array [0..0] of TGid; { C style array workarounds}
function fpsettimeofday(tp:ptimeval;tzp:ptimezone):cint; cdecl; external clib name 'settimeofday'; function fpsettimeofday(tp:ptimeval;tzp:ptimezone):cint; cdecl; external clib name 'settimeofday';
{$ifdef linux} {$ifdef linux}
function FpFstat (fd : cint; var sb : stat): cint; {$ifndef FPC_IS_SYSTEM}
Function fpLstat (path:pchar;Info:pstat):cint; { those functions are macros on linux }
function FpStat (path: pchar; var buf : stat): cint; function FpFstat (fd : cint; var sb : stat): cint;inline;
Function fpLstat (path:pchar;Info:pstat):cint;inline;
function FpStat (path: pchar; var buf : stat): cint;inline;
{$endif FPC_IS_SYSTEM}
{$else linux} {$else linux}
function FpFstat (fd : cint; var sb : stat): cint; cdecl; external clib name 'fstat'; function FpFstat (fd : cint; var sb : stat): cint; cdecl; external clib name 'fstat';
Function fpLstat (path:pchar;Info:pstat):cint; cdecl; external clib name 'lstat'; Function fpLstat (path:pchar;Info:pstat):cint; cdecl; external clib name 'lstat';