Updated to single array (not alternating line/breakpoint) jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 24 Apr 2013 19:54:58 +0100
branchjv
changeset 3240 7d753640035b
parent 3239 76ca693c6a30
child 3241 539cf9fadd32
Updated to single array (not alternating line/breakpoint)
MessageTracer.st
--- a/MessageTracer.st	Wed Apr 24 19:37:49 2013 +0100
+++ b/MessageTracer.st	Wed Apr 24 19:54:58 2013 +0100
@@ -880,15 +880,24 @@
 
     table := method breakpointTable.
     table isNil ifTrue:[
-        table := Array with: (breakpoint line) with: breakpoint.
+        "/old way:
+        "/table := Array with: (breakpoint line) with: breakpoint.
+
+        "/new way:
+        table := Array with: breakpoint.
     ] ifFalse:[
-        table := table, (Array with: (breakpoint line) with: breakpoint).
+        "/old way:
+        "/table := table, (Array with: (breakpoint line) with: breakpoint).
+
+        "/new way:
+        table := table copyWith: breakpoint
     ].
     method breakpointTable: table.
 
     ^breakpoint
 
     "Created: / 16-04-2013 / 00:25:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-04-2013 / 19:40:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MessageTracer class methodsFor:'method counting'!