Ticket #186: libtool_fix_1_of_1_rev_ff14adbaf594_Issue__186__load_debugger_resources_in_separate_thread_to_avoid_stack_exhaustion.patch

DebugView.st

@@ -1884 +1884 @@
     "Modified: / 28-08-2013 / 20:23:35 / cg"
 ! !
 
+!DebugView class methodsFor:'resources'!
+
+classResources
+    "If not already loaded, get the classes resourcePack and return it"
+
+    ClassResources isNil ifTrue:[
+        "/ Here we have to be really careful. We need to load resources
+        "/ but that takes a lot of stack space (recursive parsing). In case
+        "/ debugger is opened due to a recursion interrupt, stack is very
+        "/ limited and exhausting it leads to hard termination of the
+        "/ process (at least on systems with fixed-sized stacks such as
+        "/ Windows or, IIUC, macOS).
+        "/ 
+        "/ To mitigate this we load resources in another thread and hopr
+        "/ we won't deadlock. Sigh.
+
+        | loaded |
+
+        loaded := Semaphore new.
+        [ 
+            super classResources.
+            loaded signal.
+        ] forkAt: Processor activeProcess priority + 1.
+        loaded wait.
+    ].
+    ^ ClassResources
+
+    "
+    ClassResources := nil.
+    DebugView classResources
+    "
+
+    "Created: / 08-12-2017 / 09:15:00 / jv"
+! !
+
 !DebugView class methodsFor:'utilities'!
 
 withOptionToIgnoreException:exceptionOrHandlerSet do:aBlock