diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-03-24 13:16:42 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-03-24 13:16:42 (GMT) |
| commit | 15a2f423f0ea1de799f88ff78bcc8237e0afb5c8 (patch) | |
| tree | 3ca9df83fc1a329cac2f0a87ac9abbc4499b81dd | |
| parent | d8f01a421223dcf58b22e4cffef613818efde1fa (diff) | |
| download | tcl-15a2f423f0ea1de799f88ff78bcc8237e0afb5c8.zip tcl-15a2f423f0ea1de799f88ff78bcc8237e0afb5c8.tar.gz tcl-15a2f423f0ea1de799f88ff78bcc8237e0afb5c8.tar.bz2 | |
oops
| -rw-r--r-- | generic/tclOOMethod.c | 4 | ||||
| -rw-r--r-- | generic/tclTest.c | 4 |
2 files changed, 3 insertions, 5 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 34fa108..6c9a2eb 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -1540,9 +1540,7 @@ TclOOGetMethodBody( if (mPtr->typePtr == &procMethodType) { ProcedureMethod *pmPtr = mPtr->clientData; - if (pmPtr->procPtr->bodyPtr->bytes == NULL) { - (void) Tcl_GetString(pmPtr->procPtr->bodyPtr); - } + (void) TclGetString(pmPtr->procPtr->bodyPtr); return pmPtr->procPtr->bodyPtr; } return NULL; diff --git a/generic/tclTest.c b/generic/tclTest.c index 5bfa8f7..d96e356 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -7012,11 +7012,11 @@ TestconcatobjCmd( list1Ptr = Tcl_NewStringObj("foo bar sum", -1); Tcl_ListObjLength(NULL, list1Ptr, &len); - Tcl_InvalidateStringrep(list1Ptr); + Tcl_InvalidateStringRep(list1Ptr); list2Ptr = Tcl_NewStringObj("eeny meeny", -1); Tcl_ListObjLength(NULL, list2Ptr, &len); - Tcl_InvalidateStringrep(list2Ptr); + Tcl_InvalidateStringRep(list2Ptr); /* * Verify that concat'ing a list obj with one or more empty strings does |