diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-09-06 17:36:06 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-09-06 17:36:06 (GMT) |
| commit | bacdfc5ef0bf56c2c3f6d8710b843f9715ac2f26 (patch) | |
| tree | eda125d217decf72ed051685607872e0475ae829 | |
| parent | fda6aed43a27aa585c9ad386bf34ec8a0e18704f (diff) | |
| download | tcl-bacdfc5ef0bf56c2c3f6d8710b843f9715ac2f26.zip tcl-bacdfc5ef0bf56c2c3f6d8710b843f9715ac2f26.tar.gz tcl-bacdfc5ef0bf56c2c3f6d8710b843f9715ac2f26.tar.bz2 | |
cherry-pick [af744d56e0ffcc65] fixed segfault of [775ee88560] in 8.7
| -rw-r--r-- | generic/tclProc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 8beb701..d83134b 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -834,7 +834,7 @@ TclObjGetFrame( } if (name == NULL) { - name = TclGetString(objPtr); + name = objPtr ? TclGetString(objPtr) : "1" ; } Tcl_SetObjResult(interp, Tcl_ObjPrintf("bad level \"%s\"", name)); Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LEVEL", name, NULL); |