diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2020-09-20 10:38:41 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2020-09-20 10:38:41 (GMT) |
| commit | 107d130ce3db87a24b5136c006f32136b60d079c (patch) | |
| tree | 0c2c36c78d5ee279fc7b1440c81686740658738e /generic/tclInt.h | |
| parent | e42885732ad095ddf86399ce646a1c0348b38d37 (diff) | |
| download | tcl-107d130ce3db87a24b5136c006f32136b60d079c.zip tcl-107d130ce3db87a24b5136c006f32136b60d079c.tar.gz tcl-107d130ce3db87a24b5136c006f32136b60d079c.tar.bz2 | |
Make the check to avoid generating a string representation in [uplevel] a little less intrusive.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 46ba764..9629709 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4376,6 +4376,9 @@ MODULE_SCOPE void TclDbInitNewObj(Tcl_Obj *objPtr, const char *file, objPtr->bytes = NULL; \ } +#define TclHasStringRep(objPtr) \ + objPtr->bytes != NULL + /* *---------------------------------------------------------------- * Macros used by the Tcl core to grow Tcl_Token arrays. They use the same |