Process.st
changeset 24775 76c608493514
parent 24238 51ace3995288
child 24779 71fe9e710937
equal deleted inserted replaced
24774:7c7a48047b0b 24775:76c608493514
  2177         "suicide: terminating myself"
  2177         "suicide: terminating myself"
  2178         NoHandlerError handle:[:ex |
  2178         NoHandlerError handle:[:ex |
  2179             "unhandled TerminateProcessRequest is not an error -
  2179             "unhandled TerminateProcessRequest is not an error -
  2180              the interrupt may be delivered before a 
  2180              the interrupt may be delivered before a 
  2181              low priority process has set up the exception handler"
  2181              low priority process has set up the exception handler"
  2182            ex exception ~~ aTerminateException ifTrue:[
  2182             ex exception ~~ aTerminateException ifTrue:[
  2183                 ex reject.
  2183                 ex reject.
  2184             ].
  2184             ].
  2185         ] do:[
  2185         ] do:[
       
  2186             "give myself a chance to terminate after cleanup actions
       
  2187              have been performed by the exception handler"    
  2186             aTerminateException raise.
  2188             aTerminateException raise.
  2187         ].
  2189         ].
       
  2190         "still alive - hard terminate myself"
  2188         self terminateNoSignal.
  2191         self terminateNoSignal.
  2189         "not reached"
  2192         "not reached"
  2190         ^ self.
  2193         ^ self.
  2191     ].
  2194     ].
  2192 
  2195 
  2219     "maybe I am stopped - resume so that I can die"
  2222     "maybe I am stopped - resume so that I can die"
  2220     self resume.
  2223     self resume.
  2221 
  2224 
  2222     "Created: / 23-04-2018 / 14:29:34 / stefan"
  2225     "Created: / 23-04-2018 / 14:29:34 / stefan"
  2223     "Modified (comment): / 23-04-2018 / 15:41:07 / stefan"
  2226     "Modified (comment): / 23-04-2018 / 15:41:07 / stefan"
       
  2227     "Modified (format): / 11-09-2019 / 12:02:34 / Stefan Vogel"
  2224 ! !
  2228 ! !
  2225 
  2229 
  2226 
  2230 
  2227 !Process methodsFor:'thread local storage'!
  2231 !Process methodsFor:'thread local storage'!
  2228 
  2232