Explorar o código

* avoid deprecated warning.

git-svn-id: trunk@32254 -
marco %!s(int64=9) %!d(string=hai) anos
pai
achega
4484f793e7
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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
               FForkEvent(Self);
             if (poRunSuspended in Options) then
-              sigraise(SIGSTOP);
+              fpkill(fpgetpid,SIGSTOP);
             if FEnv<>Nil then
               fpexecve(PName,Argv,Fenv)
             else