mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 13:49:39 +02:00
* fixed wifexited and wstopsig
This commit is contained in:
parent
05d54f3e7a
commit
1ec1e7f2f8
@ -67,12 +67,12 @@ end;
|
|||||||
|
|
||||||
function wexitstatus(status : cint): cint;
|
function wexitstatus(status : cint): cint;
|
||||||
begin
|
begin
|
||||||
wexitstatus:=(status and 127) shr 8;
|
wexitstatus:=status shr 8;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function wstopsig(status : cint): cint;
|
function wstopsig(status : cint): cint;
|
||||||
begin
|
begin
|
||||||
wstopsig:=(status and 127) shr 8;
|
wstopsig:=status shr 8;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
const wstopped=127;
|
const wstopped=127;
|
||||||
@ -90,7 +90,10 @@ end;
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.2 2005-02-14 17:13:21 peter
|
Revision 1.3 2005-02-15 22:27:45 jonas
|
||||||
|
* fixed wifexited and wstopsig
|
||||||
|
|
||||||
|
Revision 1.2 2005/02/14 17:13:21 peter
|
||||||
* truncate log
|
* truncate log
|
||||||
|
|
||||||
Revision 1.1 2005/02/13 21:47:56 peter
|
Revision 1.1 2005/02/13 21:47:56 peter
|
||||||
|
Loading…
Reference in New Issue
Block a user