diff options
author | dgp <dgp@users.sourceforge.net> | 2016-10-07 16:36:42 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-10-07 16:36:42 (GMT) |
commit | d0002e5394b792fd71045acc4a43ef1c500009ee (patch) | |
tree | 6600d7d61a6c9e472ef3047781e70ab899b1268b /generic/tclObj.c | |
parent | 3119d45e4caba38d5250adbd9822f7f7596ae307 (diff) | |
download | tcl-d0002e5394b792fd71045acc4a43ef1c500009ee.zip tcl-d0002e5394b792fd71045acc4a43ef1c500009ee.tar.gz tcl-d0002e5394b792fd71045acc4a43ef1c500009ee.tar.bz2 |
New routine Tcl_HasStringRep() and first conversion of callers.
Diffstat (limited to 'generic/tclObj.c')
-rw-r--r-- | generic/tclObj.c | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 368ba52..387f92b 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -1810,6 +1810,25 @@ Tcl_InvalidateStringRep( /* *---------------------------------------------------------------------- * + * Tcl_HasStringRep -- + * + * This function reports whether object has a string representation. + * + * Results: + * Boolean. + *---------------------------------------------------------------------- + */ + +int +Tcl_HasStringRep( + Tcl_Obj *objPtr) /* Object to test */ +{ + return TclHasStringRep(objPtr); +} + +/* + *---------------------------------------------------------------------- + * * Tcl_StoreIntRep -- * * This function is called to set the object's internal |