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

- Remove ver1_0 ifdef

Browse Source 
git-svn-id: trunk@3451 -
This commit is contained in:
daniel 2006-05-07 15:32:38 +00:00
parent a40b7d7032
commit ca06efcd00
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/fpredir.pas
View File

@ -962,20 +962,11 @@ end;
{$ifdef UNIX}
IOStatus:=0;
ExecuteResult:=Shell(MaybeQuoted(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 Windows}
StoreInherit:=ExecInheritsHandles;