diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-10-18 11:57:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-10-18 11:57:36 (GMT) |
| commit | d29c3178051f09e66db3204230d26fa28364fdd4 (patch) | |
| tree | a5f6ebf5a533405ecd7064eb0f69ccdfd61b84eb /generic/tclLiteral.c | |
| parent | afa0f7421bb00ea52020c1118c980b7045a38ddc (diff) | |
| parent | 43d72b8d8e0d029c39b3c9abbb84f196aed496f5 (diff) | |
| download | tcl-d29c3178051f09e66db3204230d26fa28364fdd4.zip tcl-d29c3178051f09e66db3204230d26fa28364fdd4.tar.gz tcl-d29c3178051f09e66db3204230d26fa28364fdd4.tar.bz2 | |
Merge 8.7. Remove -stoponerror option
Diffstat (limited to 'generic/tclLiteral.c')
| -rw-r--r-- | generic/tclLiteral.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclLiteral.c b/generic/tclLiteral.c index fe1b00d..e1943a1 100644 --- a/generic/tclLiteral.c +++ b/generic/tclLiteral.c @@ -1045,7 +1045,7 @@ RebuildLiteralTable( * * Side effects: * Resets the internal representation of the CmdName Tcl_Obj - * using TclFreeIntRep(). + * using TclFreeInternalRep(). * *---------------------------------------------------------------------- */ @@ -1064,8 +1064,8 @@ TclInvalidateCmdLiteral( strlen(name), -1, NULL, nsPtr, 0, NULL); if (literalObjPtr != NULL) { - if (TclHasIntRep(literalObjPtr, &tclCmdNameType)) { - TclFreeIntRep(literalObjPtr); + if (TclHasInternalRep(literalObjPtr, &tclCmdNameType)) { + TclFreeInternalRep(literalObjPtr); } /* Balance the refcount effects of TclCreateLiteral() above */ Tcl_IncrRefCount(literalObjPtr); |