paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 14:27:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Shell return adapted for 1.1

Browse Source
This commit is contained in:
peter 2003-06-05 20:03:22 +00:00
parent 5a59576557
commit f65d119ea1
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/utils/redir.pp
View File

@ -870,12 +870,20 @@ end;
{$ifdef UNIX}
IOStatus:=0;
ExecuteResult:=Shell(FixPath(Progname)+' '+Comline);
{$ifdef ver1_0}
{ Signal that causes the stop of the shell }
IOStatus:=ExecuteResult and $7F;
{ Exit Code seems to be in the second byte,
is this also true for BSD ??
$80 bit is a CoreFlag apparently }
ExecuteResult:=(ExecuteResult and $ff00) shr 8;
{$else}
if ExecuteResult<0 then
begin
IOStatus:=(-ExecuteResult) and $7f;
ExecuteResult:=((-ExecuteResult) and $ff00) shr 8;
end;
{$endif}
{$else}
{$ifdef win32}
StoreInherit:=ExecInheritsHandles;
@ -922,7 +930,10 @@ finalization
End.
{
$Log$
Revision 1.12 2003-01-12 19:46:50 hajny
Revision 1.13 2003-06-05 20:03:22 peter
* Shell return adapted for 1.1
Revision 1.12 2003/01/12 19:46:50 hajny
+ newer functions made available under OS/2
Revision 1.11 2002/12/05 16:03:04 pierre