From f08fa883e2a9d01ef77c7cc491a8d03d81e7099e Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 14 Jul 2015 21:58:27 +0000
Subject: [PATCH]  Pipe syscall for DragonFly also uses EAX:EDX for result,
 like FreeBSD

git-svn-id: trunk@31209 -
---
 rtl/bsd/bunxsysc.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/rtl/bsd/bunxsysc.inc b/rtl/bsd/bunxsysc.inc
index 9dc0306616..9bc9ebf36c 100644
--- a/rtl/bsd/bunxsysc.inc
+++ b/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;