diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-11 14:35:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-11 14:35:40 (GMT) |
| commit | 73442469a2fb07eecd2777eb726527b68e8da8c5 (patch) | |
| tree | f565079d7260e8a04ba220f165fac27b20d86381 /generic/tclExecute.c | |
| parent | 4693981b235565c28349466192503fb764e5e55e (diff) | |
| download | tcl-73442469a2fb07eecd2777eb726527b68e8da8c5.zip tcl-73442469a2fb07eecd2777eb726527b68e8da8c5.tar.gz tcl-73442469a2fb07eecd2777eb726527b68e8da8c5.tar.bz2 | |
Fix crash reported by reported by François Vogel related to: [cc1e91552c0ca1817292d951f8c694b28c2b2251|cc1e91552c]
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index cd78adf..94912ce 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5238,7 +5238,7 @@ TEBCresume( /* Every range of an empty list is an empty list */ if (objc == 0) { /* avoid return of not canonical list (e. g. spaces in string repr.) */ - if (ListObjIsCanonical(valuePtr)) { + if (TclListObjIsCanonical(valuePtr)) { TRACE_APPEND(("\n")); NEXT_INST_F(9, 0, 0); } |