tracing: further improve robustness for positioning coroutines

hpi-swa-lab · Jan 2, 2024 · 0498ff2 · 0498ff2
1 parent 7a02689
commit 0498ff2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/packages/TraceDebugger.package/TDBTrace.class/instance/advance.st b/packages/TraceDebugger.package/TDBTrace.class/instance/advance.st
@@ -17,6 +17,7 @@ advance
 	self flag: #coroutines. "result could not be located in the trace, search the entire tree instead and insert a new trace. This is a simple workaround only and in particular violates the assumptions of #traceForContext:, but a proper representation of coroutines would require a larger design revision. Hacked."
 	newRoot := (self findNearestTraceFor: result)
 		ifNil: [self findNearestTraceFor: result sender].
+	newRoot ifNil: [newRoot := self]. "last resort"
 	^ newRoot atTime: timeIndex putChild:
 		(self class forContext: result parent: newRoot timeIndex: timeIndex)
 			defangUnhandledErrorIfAny
diff --git a/packages/TraceDebugger.package/TDBTrace.class/methodProperties.json b/packages/TraceDebugger.package/TDBTrace.class/methodProperties.json
@@ -4,7 +4,7 @@
 		"forContext:parent:timeIndex:" : "ct 3/15/2022 22:50",
 		"forStackOfContext:" : "ct 2/8/2022 19:27" },
 	"instance" : {
-		"advance" : "ct 3/17/2022 14:38",
+		"advance" : "ct 1/2/2024 22:02",
 		"advanceUntil:" : "ct 3/17/2022 14:38",
 		"advancedTo:atTime:" : "ct 3/15/2022 22:02",
 		"allDescendantsBreadthFirstDo:" : "ct 2/3/2022 19:08",