diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-09-05 14:52:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-09-05 14:52:01 (GMT) |
| commit | 2501ad1ea2dd8592c15e7f3bda1f9c298fa446a6 (patch) | |
| tree | 8b3fcee2d834673ca87d7d3ccf003f43591ccfaf /generic/tclLiteral.c | |
| parent | e9e3981faf0495befa4c2914d59af0bd994ac23c (diff) | |
| download | tcl-2501ad1ea2dd8592c15e7f3bda1f9c298fa446a6.zip tcl-2501ad1ea2dd8592c15e7f3bda1f9c298fa446a6.tar.gz tcl-2501ad1ea2dd8592c15e7f3bda1f9c298fa446a6.tar.bz2 | |
some more clean-up
Diffstat (limited to 'generic/tclLiteral.c')
| -rw-r--r-- | generic/tclLiteral.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclLiteral.c b/generic/tclLiteral.c index 484b86b..c329ed7 100644 --- a/generic/tclLiteral.c +++ b/generic/tclLiteral.c @@ -249,7 +249,6 @@ TclCreateLiteral( if (globalPtrPtr != NULL) { *globalPtrPtr = NULL; } - /*fprintf(stderr, "UNSHARED LITERAL <%s>\n", bytes);*/ return objPtr; } @@ -1167,6 +1166,9 @@ TclVerifyLocalLiteralTable( if (LookupLiteralEntry((Tcl_Interp *) envPtr->iPtr, localPtr->objPtr) == NULL) { bytes = Tcl_GetStringFromObj(localPtr->objPtr, &length); + Tcl_Panic("%s: local literal \"%.*s\" is not global", + "TclVerifyLocalLiteralTable", + (length>60? 60 : length), bytes); } if (localPtr->objPtr->bytes == NULL) { Tcl_Panic("%s: literal has NULL string rep", |