1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
--- 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;
|
