paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 21:26:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid wrong exitcode 512 of Grep for Unix

Browse Source 
git-svn-id: trunk@19843 -
This commit is contained in:
pierre 2011-12-13 16:33:44 +00:00
parent bbc196ac02
commit c25a96bd37
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/fpredir.pas
View File

@ -791,16 +791,24 @@ end;
var
StoreInherit : BOOL;
{$endif Windows}
{$ifdef UNIX}
var
s : cint;
{$endif}
Begin
SwapVectors;
{$ifdef UNIX}
IOStatus:=0;
{We need to use fpsystem to get wildcard expansion and avoid being
interrupted by ctrl+c (SIGINT).};
ExecuteResult:=fpsystem(MaybeQuoted(FixPath(Progname))+' '+Comline);
if ExecuteResult<0 then
interrupted by ctrl+c (SIGINT).
But used wifexited and wexitstatus functions
to correctly interpret fpsystem reutrn value }
s:=fpsystem(MaybeQuoted(FixPath(Progname))+' '+Comline);
if wifexited(s) then
ExecuteResult:=wexitstatus(s)
else
begin
ExecuteResult:=word(s);
IOStatus:=(-ExecuteResult) and $7f;
ExecuteResult:=((-ExecuteResult) and $ff00) shr 8;
end;