Smallest senders chain

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