diff options
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index e66514d..b220a31 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4624,6 +4624,8 @@ MODULE_SCOPE void TclDbInitNewObj(Tcl_Obj *objPtr, const char *file, MODULE_SCOPE int TclIsPureByteArray(Tcl_Obj *objPtr); #define TclIsPureDict(objPtr) \ (((objPtr)->bytes==NULL) && ((objPtr)->typePtr==&tclDictType)) +#define TclFetchIntRep(objPtr, type) \ + (((objPtr)->typePtr == type) ? &((objPtr)->internalRep) : NULL) /* |