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

* fixed returning of proper exit status after pclose

Browse Source
This commit is contained in:
Jonas Maebe 2004-07-01 18:28:15 +00:00
parent bd53954c88
commit f6517d70b6
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/darwin/unixsysc.inc
View File

@ -19,14 +19,14 @@
Function PClose(Var F:file) : cint; Function PClose(Var F:file) : cint;
var var
pl : ^cint; pl : ^cint;
res : cint; // res : cint;
begin begin
fpclose(filerec(F).Handle); fpclose(filerec(F).Handle);
{ closed our side, Now wait for the other - this appears to be needed ?? } { closed our side, Now wait for the other - this appears to be needed ?? }
pl:=@(filerec(f).userdata[2]); pl:=@(filerec(f).userdata[2]);
fpwaitpid(pl^,@res,0); pclose := WaitProcess(pl^);
pclose:=res shr 8; // pclose:=res shr 8;
end; end;
Function PClose(Var F:text) :cint; Function PClose(Var F:text) :cint;
@ -66,8 +66,11 @@ end;
{ {
$Log$ $Log$
Revision 1.1 2004-01-04 20:05:38 jonas Revision 1.2 2004-07-01 18:28:15 jonas
* fixed returning of proper exit status after pclose
Revision 1.1 2004/01/04 20:05:38 jonas
* first working version of the Darwin/Mac OS X (for PowerPC) RTL * first working version of the Darwin/Mac OS X (for PowerPC) RTL
Several non-essential units are still missing, but make cycle works Several non-essential units are still missing, but make cycle works
} }