JavaVM.st
changeset 3056 fd92dea7b142
parent 3048 74535b57b370
child 3066 8c0339f8c175
equal deleted inserted replaced
3055:10b7a8f2e23c 3056:fd92dea7b142
  2016     "/ Initialization spawns couple of new threads, namely
  2016     "/ Initialization spawns couple of new threads, namely
  2017     "/ finalization handler and signal handler. Those processes
  2017     "/ finalization handler and signal handler. Those processes
  2018     "/ should form their own new process group. 
  2018     "/ should form their own new process group. 
  2019     blocker := Semaphore new.
  2019     blocker := Semaphore new.
  2020     booter := [
  2020     booter := [
  2021         Java initSystemClass.
  2021         [
  2022         Java initializeCurrentThread.
  2022             Java initSystemClass.
  2023         self initializeSystemClassLoader.
  2023             Java initializeCurrentThread.
  2024         FinalizationLobby startFinalizationProcessAt: 5.
  2024             self initializeSystemClassLoader.
  2025         blocker signal.
  2025             FinalizationLobby startFinalizationProcessAt: 5.
       
  2026         ] ensure:[
       
  2027             blocker signal.
       
  2028         ].
  2026     ] newProcess.
  2029     ] newProcess.
  2027     booter beGroupLeader.
  2030     booter beGroupLeader.
  2028     booter resume.
  2031     booter resume.
  2029     blocker wait.
  2032     blocker wait.
  2030 
  2033 
  2042     "Created: / 03-01-1998 / 21:29:09 / cg"
  2045     "Created: / 03-01-1998 / 21:29:09 / cg"
  2043     "Modified: / 14-12-1999 / 18:58:56 / cg"
  2046     "Modified: / 14-12-1999 / 18:58:56 / cg"
  2044     "Modified: / 15-10-2010 / 15:27:45 / Jan Kurs <kurs.jan@post.cz>"
  2047     "Modified: / 15-10-2010 / 15:27:45 / Jan Kurs <kurs.jan@post.cz>"
  2045     "Modified: / 24-02-2012 / 13:59:29 / Marcel Hlopko <hlopik@gmail.com>"
  2048     "Modified: / 24-02-2012 / 13:59:29 / Marcel Hlopko <hlopik@gmail.com>"
  2046     "Modified: / 24-02-2012 / 14:37:06 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
  2049     "Modified: / 24-02-2012 / 14:37:06 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
  2047     "Modified: / 21-03-2014 / 12:38:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2050     "Modified: / 04-04-2014 / 12:43:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2048 !
  2051 !
  2049 
  2052 
  2050 initializeVMIfNoEventThreadRunning
  2053 initializeVMIfNoEventThreadRunning
  2051     |uClass updater p|
  2054     |uClass updater p|
  2052 
  2055