* generic/tclBasic.c: Made the walk of the active trace list aware

        * generic/tclCmdMZ.c:   of the direction of trace scanning, so the
        * generic/tclInt.h:     proper correction can be made. [Bug 1224585]
        * tests/trace.test (trace-34.2,3):


FossilOrigin-Name: f5039da57115f31cf6d6c5a5474730c7233c7507

1 files changed, 17 insertions, 1 deletions

diff --git a/tests/trace.test b/tests/trace.test
index 4456afa..e0c6648 100644
--- a/tests/trace.test
+++ b/tests/trace.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: trace.test,v 1.26.2.5 2005/06/21 14:44:59 dgp Exp $
+# RCS: @(#) $Id: trace.test,v 1.26.2.6 2005/06/21 17:19:43 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -2156,6 +2156,22 @@ test trace-34.1 {Bug 1201035} {
     set ::x
 } {{{lappend ::x foo} enterstep} done foo}
 
+test trace-34.2 {Bug 1224585} {
+    proc foo {} {}
+    proc bar args {trace remove execution foo leave soom}
+    trace add execution foo leave bar
+    trace add execution foo leave soom
+    foo
+} {}
+
+test trace-34.3 {Bug 1224585} {
+    proc foo {} {set x {}}
+    proc bar args {trace remove execution foo enterstep soom}
+    trace add execution foo enterstep soom
+    trace add execution foo enterstep bar
+    foo
+} {}
+
 # Delete procedures when done, so we don't clash with other tests
 # (e.g. foobar will clash with 'unknown' tests).
 catch {rename foobar {}}