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

* commented statat for non freebsd, and fixed a typo.

Browse Source
This commit is contained in:
marcoonthegit 2022-06-19 13:35:08 +02:00
parent ac6637276b
commit 43010ed471
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/bsd/bunxsysc.inc
View File

@ -383,7 +383,7 @@ end;
{$else}
function __pipe_call(sysnr:TSysParam):TSysResult; {$ifdef cpui386}oldfpccall{$endif} external name 'FPC_DOSYS0';
{$if (defined (dragonfly) and (defined(CPUi386) or defined(CPUX86_64))}
{$if defined (dragonfly) and (defined(CPUi386) or defined(CPUX86_64))}
{$define PIPE_RESULT_IN_EAX_AND_EDX}
{$endif}
Function FPpipe(var fildes : tfildes):cint;

3
rtl/bsd/ossysc.inc
View File

@ -138,12 +138,13 @@ begin
Fprename:=do_syscall(syscall_nr_rename,TSysParam(old),TSysParam(newpath));
end;
{$ifdef freebsd}
Function fpFstatat(fd: cint; path: pchar; var sb: stat; flag: cint):cint;
begin
fpFStatat:=do_syscall(syscall_nr_fstatat,fd,TSysParam(path),TSysParam(@sb),flag);
end;
{$endif}
function Fpstat(const path: pchar; var buf : stat):cint; [public, alias : 'FPC_SYSC_STAT'];