diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2016-07-10 23:07:47 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2016-07-10 23:07:47 (GMT) |
| commit | b72f659998fee56defeaa1dae2d98dafab30a574 (patch) | |
| tree | 1d858b72944dfa9d5ec698e95ddb33e92e23b6ca /generic/tclInt.h | |
| parent | 2de34a7674bffea69b889e1326b18e442d8e8589 (diff) | |
| download | tcl-b72f659998fee56defeaa1dae2d98dafab30a574.zip tcl-b72f659998fee56defeaa1dae2d98dafab30a574.tar.gz tcl-b72f659998fee56defeaa1dae2d98dafab30a574.tar.bz2 | |
Avoid generating string representation for comparisons against empty string.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index c01b0c1..817f17d 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4411,6 +4411,12 @@ MODULE_SCOPE void TclDbInitNewObj(Tcl_Obj *objPtr, const char *file, #define TclIsPureByteArray(objPtr) \ (((objPtr)->typePtr==&tclByteArrayType) && ((objPtr)->bytes==NULL)) +#define TclIsPureDict(objPtr) \ + (((objPtr)->typePtr==&tclDictType) && ((objPtr)->bytes==NULL)) + +#define TclIsPureList(objPtr) \ + (((objPtr)->typePtr==&tclListType) && ((objPtr)->bytes==NULL)) + /* *---------------------------------------------------------------- * Macro used by the Tcl core to compare Unicode strings. On big-endian |