paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 05:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix three warnings when compiling with FPC_USE_LIBC.

Browse Source 
osmacro.inc:
  * FpFstat, fpLstat and FpStat: correctly set the result value instead of relying on the result location being the same for cdecl functions as for register functions

git-svn-id: trunk@29240 -
This commit is contained in:
svenbarth 2014-12-09 21:21:45 +00:00
parent e2c546b26f
commit 01278e2800
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/linux/osmacro.inc
View File

@ -102,19 +102,19 @@ function __xmknod(__ver : cint; Pathname: PChar; Mode: mode_t; var Device: dev_t
{$define FPC_HAS_BASEUNIX_STAT} {$define FPC_HAS_BASEUNIX_STAT}
function FpFstat(fd : cint; var sb : stat): cint;inline; function FpFstat(fd : cint; var sb : stat): cint;inline;
begin begin
__fxstat(_STAT_VER,fd,sb); FpFstat:=__fxstat(_STAT_VER,fd,sb);
end; end;
function fpLstat(path:pchar;Info:pstat):cint;inline; function fpLstat(path:pchar;Info:pstat):cint;inline;
begin begin
__lxstat(_STAT_VER,path,Info^); fpLstat:=__lxstat(_STAT_VER,path,Info^);
end; end;
function FpStat(path: pchar; var buf : stat): cint;inline; function FpStat(path: pchar; var buf : stat): cint;inline;
begin begin
__xstat(_STAT_VER,path,buf); FpStat:=__xstat(_STAT_VER,path,buf);
end; end;
{$ifndef fs32bit} {$ifndef fs32bit}