e40d870fc3
* Add new unit devel/fpc-tplylib * Remove COMPAT10 dependency [PR/254481] PR: 254481 Reported by: jbeich
44 lines
1.2 KiB
PHP
44 lines
1.2 KiB
PHP
--- rtl/bsd/bunxsysc.inc.orig 2015-07-14 16:58:27.000000000 -0500
|
|
+++ rtl/bsd/bunxsysc.inc 2021-07-31 02:57:36.924782000 -0500
|
|
@@ -374,39 +374,11 @@
|
|
FPutime:=do_syscall(syscall_nr_utimes,TSysParam(path),TSysParam(tvp));
|
|
end;
|
|
|
|
-function __pipe_call(sysnr:TSysParam):TSysResult; {$ifdef cpui386}oldfpccall{$endif} external name 'FPC_DOSYS0';
|
|
+function FPpipe(var fildes : tfildes; flags:cint):cint;
|
|
|
|
-{$if defined(freebsd) or defined (dragonfly)}
|
|
- {$define PIPE_RESULT_IN_EAX_AND_EDX}
|
|
-{$endif}
|
|
-Function FPpipe(var fildes : tfildes):cint;
|
|
-{$ifndef PIPE_RESULT_IN_EAX_AND_EDX}
|
|
begin
|
|
- fppipe:=do_syscall(syscall_nr_pipe,TSysParam(@fildes));
|
|
+ fppipe:=do_syscall(syscall_nr_pipe2,TSysParam(@fildes), TSysParam(flags));
|
|
end;
|
|
-{$else}
|
|
-var
|
|
- a, b: cInt;
|
|
-begin
|
|
- asm
|
|
- {$ifdef CPUi386}
|
|
- pushl syscall_nr_pipe
|
|
- call __pipe_call
|
|
- movl %eax, a
|
|
- movl %edx, b
|
|
- {$else}
|
|
- movq syscall_nr_pipe, %rdi
|
|
- call __pipe_call
|
|
- movl %eax, a
|
|
- movl %edx, b
|
|
- {$endif}
|
|
- end;
|
|
-
|
|
- fpPipe := a; // eax is in a, no matter if it worked or not
|
|
- fildes[0] := a;
|
|
- fildes[1] := b;
|
|
-end;
|
|
-{$endif}
|
|
|
|
function FPfcntl(fildes:cint;Cmd:cint;Arg:cint):cint;
|
|
|