Full senders chain for dev

jordanmontt · Dec 17, 2024 · a60d29a · a60d29a
1 parent 9f0c3ba
commit a60d29a
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/src/IllimaniProfiler/IllEphemeron.class.st b/src/IllimaniProfiler/IllEphemeron.class.st
@@ -174,14 +174,16 @@ IllEphemeron >> sendersCallStack [
 { #category : 'accessing' }
 IllEphemeron >> sendersCallStack: aContext [
 
-	| sender |
-	senders := Array new: 10.
+	| sender i n |
+	n := 200.
+	senders := Array new: n.
+	i := 1.
 	sender := aContext.
-	1 to: 10 by: 2 do: [ :i |
-		sender ifNil: [ ^ self ].
+	[ sender isNil or: [ i > n ] ] whileFalse: [
 		senders at: i put: sender method.
 		senders at: i + 1 put: sender pc - 1.
-		sender := sender sender ]
+		sender := sender sender.
+		i := i + 2 ]
 ]
 
 { #category : 'accessing' }