summaryrefslogtreecommitdiffstats
path: root/generic/tclObj.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2009-02-03 17:15:28 (GMT)
committerdgp <dgp@users.sourceforge.net>2009-02-03 17:15:28 (GMT)
commitbc8de2fe434eaa5961793b2e00ce90e55e710433 (patch)
tree1925ee32ff18fa7c49fdc4341b9e3c60528d8264 /generic/tclObj.c
parent558cb6ad68272433faff4c01314fad2d63c1bfc3 (diff)
downloadtcl-bc8de2fe434eaa5961793b2e00ce90e55e710433.zip
tcl-bc8de2fe434eaa5961793b2e00ce90e55e710433.tar.gz
tcl-bc8de2fe434eaa5961793b2e00ce90e55e710433.tar.bz2
* generic/tclObj.c (Tcl_GetStringFromObj): Reduce code duplication.
Diffstat (limited to 'generic/tclObj.c')
-rw-r--r--generic/tclObj.c10
1 files changed, 2 insertions, 8 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c
index 2b2219a..93cf2f4 100644
--- a/generic/tclObj.c
+++ b/generic/tclObj.c
@@ -13,7 +13,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclObj.c,v 1.147 2009/01/09 11:21:46 dkf Exp $
+ * RCS: @(#) $Id: tclObj.c,v 1.148 2009/02/03 17:15:28 dgp Exp $
*/
#include "tclInt.h"
@@ -1099,13 +1099,7 @@ Tcl_GetStringFromObj(
* rep's byte array length should * be stored.
* If NULL, no length is stored. */
{
- if (objPtr->bytes == NULL) {
- if (objPtr->typePtr->updateStringProc == NULL) {
- Tcl_Panic("UpdateStringProc should not be invoked for type %s",
- objPtr->typePtr->name);
- }
- objPtr->typePtr->updateStringProc(objPtr);
- }
+ (void) TclGetString(objPtr);
if (lengthPtr != NULL) {
*lengthPtr = objPtr->length;