浏览代码

Pipe syscall for DragonFly also uses EAX:EDX for result, like FreeBSD

git-svn-id: trunk@31209 -
pierre 10 年之前
父节点
当前提交
f08fa883e2
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      rtl/bsd/bunxsysc.inc

+ 4 - 1
rtl/bsd/bunxsysc.inc

@@ -376,8 +376,11 @@ end;
 
 function __pipe_call(sysnr:TSysParam):TSysResult; {$ifdef cpui386}oldfpccall{$endif} external name 'FPC_DOSYS0';
 
+{$if defined(freebsd) or defined (dragonfly)}
+  {$define PIPE_RESULT_IN_EAX_AND_EDX}
+{$endif}
 Function FPpipe(var fildes : tfildes):cint;
-{$ifndef freebsd}
+{$ifndef PIPE_RESULT_IN_EAX_AND_EDX}
 begin
   fppipe:=do_syscall(syscall_nr_pipe,TSysParam(@fildes));
 end;