paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:06:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small fix

Browse Source
This commit is contained in:
marco 2003-11-09 13:48:55 +00:00
parent 5298182fff
commit 313067faaf
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/linux/unixsysc.inc
View File

@ -59,11 +59,10 @@ Function AssignPipe(var pipe_in,pipe_out:longint):boolean; [public, alias : 'FPC
var var
pip : tpipe; pip : tpipe;
begin begin
do_SysCall(SysCall_nr_pipe,longint(@pip)); assignPipe:=do_SysCall(SysCall_nr_pipe,longint(@pip))=0;
pipe_in:=pip[1]; pipe_in:=pip[1];
pipe_out:=pip[2]; pipe_out:=pip[2];
linuxerror:=fpgeterrno; linuxerror:=fpgeterrno;
AssignPipe:=(LinuxError=0);
end; end;
Function PClose(Var F:text) :longint; Function PClose(Var F:text) :longint;
@ -118,7 +117,10 @@ end;
{ {
$Log$ $Log$
Revision 1.15 2003-10-30 16:42:25 marco Revision 1.16 2003-11-09 13:48:55 marco
* small fix
Revision 1.15 2003/10/30 16:42:25 marco
* Killing off old syscall convention anywhere except for oldlinux * Killing off old syscall convention anywhere except for oldlinux
Revision 1.14 2003/10/17 22:11:28 olle Revision 1.14 2003/10/17 22:11:28 olle