Browse Source

--- Merging r32254 into '.':
U packages/fcl-process/src/unix/process.inc
--- Recording mergeinfo for merge of r32254 into '.':
U .

# revisions: 32254

git-svn-id: branches/fixes_3_0@33358 -

marco 9 years ago
parent
commit
b00aec92d3
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-process/src/unix/process.inc

+ 1 - 1
packages/fcl-process/src/unix/process.inc

@@ -416,7 +416,7 @@ begin
             if Assigned(FForkEvent) then
             if Assigned(FForkEvent) then
               FForkEvent(Self);
               FForkEvent(Self);
             if (poRunSuspended in Options) then
             if (poRunSuspended in Options) then
-              sigraise(SIGSTOP);
+              fpkill(fpgetpid,SIGSTOP);
             if FEnv<>Nil then
             if FEnv<>Nil then
               fpexecve(PName,Argv,Fenv)
               fpexecve(PName,Argv,Fenv)
             else
             else