mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Merged revision(s) 7176 from branches/0.7

Browse source
This commit is contained in:
Alexander Koblov 2017-01-15 11:03:30 +00:00
commit cbef0e17fc
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/platform/unix/umyunix.pas
View file

@ -489,7 +489,7 @@ var
Process: TProcess;
Index: Integer = 0;
procedure ProcessForkEvent(Self, Sender : TObject);
procedure ProcessForkEvent{$IF (FPC_FULLVERSION >= 30000)}(Self, Sender : TObject){$ENDIF};
begin
if (setpgid(0, 0) < 0) then fpExit(127);
end;
@ -501,7 +501,11 @@ begin
Process.Executable:= 'mount';
Process.Parameters.Add(Path);
Handler.Code:= @ProcessForkEvent;
{$IF (FPC_FULLVERSION >= 30000)}
Process.OnForkEvent:= TProcessForkEvent(Handler);
{$ELSE}
Process.OnForkEvent:= TProcessForkEvent(@ProcessForkEvent);
{$ENDIF}
Process.Options:= Process.Options + [poUsePipes, poStderrToOutPut];
try
Process.Execute;
@ -523,7 +527,11 @@ begin
Write(Message);
end;
end;
{$IF (FPC_FULLVERSION >= 30000)}
Result:= (Process.ExitCode = 0);
{$ELSE}
Result:= (Process.ExitStatus = 0);
{$ENDIF}
except
Result:= False;
end;