paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 21:19:31 +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;
var
pl : ^cint;
res : cint;
// res : cint;
begin
fpclose(filerec(F).Handle);
{ closed our side, Now wait for the other - this appears to be needed ?? }
pl:=@(filerec(f).userdata[2]);
fpwaitpid(pl^,@res,0);
pclose:=res shr 8;
pclose := WaitProcess(pl^);
// pclose:=res shr 8;
end;
Function PClose(Var F:text) :cint;
@ -66,8 +66,11 @@ end;
{
$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
Several non-essential units are still missing, but make cycle works
}
}