summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorstanton <stanton>1999-02-02 22:26:11 (GMT)
committerstanton <stanton>1999-02-02 22:26:11 (GMT)
commitd2bb30303b2483fa2044fe6afe1788289583948a (patch)
tree6eb4be735b4510c2786fd768076199cfa3aff99b /tests
parentf4df4aba71f814b2ea589e0ce4a6dddd20221417 (diff)
downloadtcl-d2bb30303b2483fa2044fe6afe1788289583948a.zip
tcl-d2bb30303b2483fa2044fe6afe1788289583948a.tar.gz
tcl-d2bb30303b2483fa2044fe6afe1788289583948a.tar.bz2
* generic/tclCompile.c (CompileExprWord): Fixed exception stack
overflow bug caused by missing statement. [Bug: 928]
Diffstat (limited to 'tests')
-rw-r--r--tests/compile.test11
1 files changed, 10 insertions, 1 deletions
diff --git a/tests/compile.test b/tests/compile.test
index 2c01585..14f8864 100644
--- a/tests/compile.test
+++ b/tests/compile.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: compile.test,v 1.4 1998/09/14 18:40:08 stanton Exp $
+# RCS: @(#) $Id: compile.test,v 1.5 1999/02/02 22:26:12 stanton Exp $
if {[string compare test [info procs test]] == 1} then {source defs}
@@ -170,6 +170,15 @@ test compile-6.1 {UpdateStringOfByteCode: called for duplicate of compiled empty
p
} {}
+test compile-7.1 {BLACKBOX: exception stack overflow} {
+ set x {{0}}
+ set y 0
+ while {$y < 100} {
+ if !$x {incr y}
+ }
+} {}
+
+
catch {rename p ""}
catch {namespace delete test_ns_compile}
catch {unset x}