diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-31 22:35:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-31 22:35:03 (GMT) |
| commit | be020c7aa5cc7dd88dba8e81b14e6201edf7d23d (patch) | |
| tree | 4df07aa00ddcc5df3075572a5c7698135e33f024 /generic/tclInt.h | |
| parent | a2a2ad30624a13d9d6b5e73b6a73a5bc735ba606 (diff) | |
| parent | d0613a05568e1c78a1c0f7e499a334089ec7809b (diff) | |
| download | tcl-be020c7aa5cc7dd88dba8e81b14e6201edf7d23d.zip tcl-be020c7aa5cc7dd88dba8e81b14e6201edf7d23d.tar.gz tcl-be020c7aa5cc7dd88dba8e81b14e6201edf7d23d.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index aa312c4..ca50f33 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -2680,6 +2680,7 @@ MODULE_SCOPE void *tclTimeClientData; MODULE_SCOPE const Tcl_ObjType tclBignumType; MODULE_SCOPE const Tcl_ObjType tclBooleanType; MODULE_SCOPE const Tcl_ObjType tclByteArrayType; +MODULE_SCOPE const Tcl_ObjType tclPureByteArrayType; MODULE_SCOPE const Tcl_ObjType tclByteCodeType; MODULE_SCOPE const Tcl_ObjType tclDoubleType; MODULE_SCOPE const Tcl_ObjType tclIntType; @@ -4572,7 +4573,8 @@ MODULE_SCOPE void TclDbInitNewObj(Tcl_Obj *objPtr, const char *file, *---------------------------------------------------------------- */ -MODULE_SCOPE int TclIsPureByteArray(Tcl_Obj *objPtr); +#define TclIsPureByteArray(objPtr) \ + ((objPtr)->typePtr==&tclPureByteArrayType) #define TclIsPureDict(objPtr) \ (((objPtr)->bytes==NULL) && ((objPtr)->typePtr==&tclDictType)) #define TclFetchIntRep(objPtr, type) \ |