diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-07 13:55:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-07 13:55:38 (GMT) |
| commit | 78fd03de10e26eef255074fab73cc2f016a70db2 (patch) | |
| tree | 7b1a1d3cb8d38f9d14e39abf1f4804a887ec0161 /generic/tclListObj.c | |
| parent | a3bfe4a297587de13ae555332bb6180a193098c9 (diff) | |
| parent | db32aeed9858ddb8dd0828e2fb7ef36ac46bc5f6 (diff) | |
| download | tcl-78fd03de10e26eef255074fab73cc2f016a70db2.zip tcl-78fd03de10e26eef255074fab73cc2f016a70db2.tar.gz tcl-78fd03de10e26eef255074fab73cc2f016a70db2.tar.bz2 | |
Tcl_InvalidateStringRep -> TclInvalidateStringRep
Diffstat (limited to 'generic/tclListObj.c')
| -rw-r--r-- | generic/tclListObj.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 865e402..bd2dbc4 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -237,7 +237,7 @@ Tcl_NewListObj( * Now create the object. */ - Tcl_InvalidateStringRep(listPtr); + TclInvalidateStringRep(listPtr); ListSetIntRep(listPtr, listRepPtr); return listPtr; } @@ -302,7 +302,7 @@ Tcl_DbNewListObj( * Now create the object. */ - Tcl_InvalidateStringRep(listPtr); + TclInvalidateStringRep(listPtr); ListSetIntRep(listPtr, listRepPtr); return listPtr; @@ -362,7 +362,7 @@ Tcl_SetListObj( */ TclFreeIntRep(objPtr); - Tcl_InvalidateStringRep(objPtr); + TclInvalidateStringRep(objPtr); /* * Set the object's type to "list" and initialize the internal rep. @@ -697,7 +697,7 @@ Tcl_ListObjAppendElement( * representation has changed. */ - Tcl_InvalidateStringRep(listPtr); + TclInvalidateStringRep(listPtr); return TCL_OK; } @@ -1057,7 +1057,7 @@ Tcl_ListObjReplace( * reflects the list's internal representation. */ - Tcl_InvalidateStringRep(listPtr); + TclInvalidateStringRep(listPtr); return TCL_OK; } @@ -1523,7 +1523,7 @@ TclLsetFlat( * containing lists. */ - Tcl_InvalidateStringRep(objPtr); + TclInvalidateStringRep(objPtr); } /* @@ -1559,7 +1559,7 @@ TclLsetFlat( } else { TclListObjSetElement(NULL, subListPtr, index, valuePtr); } - Tcl_InvalidateStringRep(subListPtr); + TclInvalidateStringRep(subListPtr); Tcl_IncrRefCount(retValuePtr); return retValuePtr; } |