diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-02-19 08:37:41 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-02-19 08:37:41 (GMT) |
| commit | 5e3e3efa52b25b6a2dac9c5f974975021c8f1c61 (patch) | |
| tree | a6c9fe95c3313d5a9762caa78ee206c8c76f2397 /generic/tclDecls.h | |
| parent | b43caa2a524637c0e771614db9290499b786e7f9 (diff) | |
| parent | cea29dc862927d59885d2b5c560fa7ca71130681 (diff) | |
| download | tcl-core-tip-711.zip tcl-core-tip-711.tar.gz tcl-core-tip-711.tar.bz2 | |
Rebase to 9.1core-tip-711
Diffstat (limited to 'generic/tclDecls.h')
| -rw-r--r-- | generic/tclDecls.h | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 487d524..c8f2eaf 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -1867,6 +1867,8 @@ EXTERN Tcl_Obj * Tcl_NewWideUIntObj(Tcl_WideUInt wideValue); EXTERN void Tcl_SetWideUIntObj(Tcl_Obj *objPtr, Tcl_WideUInt uwideValue); /* 690 */ +EXTERN int Tcl_IsEmpty(Tcl_Obj *obj); +/* 691 */ EXTERN void TclUnusedStubEntry(void); typedef struct { @@ -2569,7 +2571,8 @@ typedef struct TclStubs { int (*tcl_UtfNcasecmp) (const char *s1, const char *s2, size_t n); /* 687 */ Tcl_Obj * (*tcl_NewWideUIntObj) (Tcl_WideUInt wideValue); /* 688 */ void (*tcl_SetWideUIntObj) (Tcl_Obj *objPtr, Tcl_WideUInt uwideValue); /* 689 */ - void (*tclUnusedStubEntry) (void); /* 690 */ + int (*tcl_IsEmpty) (Tcl_Obj *obj); /* 690 */ + void (*tclUnusedStubEntry) (void); /* 691 */ } TclStubs; extern const TclStubs *tclStubsPtr; @@ -3898,8 +3901,10 @@ extern const TclStubs *tclStubsPtr; (tclStubsPtr->tcl_NewWideUIntObj) /* 688 */ #define Tcl_SetWideUIntObj \ (tclStubsPtr->tcl_SetWideUIntObj) /* 689 */ +#define Tcl_IsEmpty \ + (tclStubsPtr->tcl_IsEmpty) /* 690 */ #define TclUnusedStubEntry \ - (tclStubsPtr->tclUnusedStubEntry) /* 690 */ + (tclStubsPtr->tclUnusedStubEntry) /* 691 */ #endif /* defined(USE_TCL_STUBS) */ @@ -4242,4 +4247,8 @@ extern const TclStubs *tclStubsPtr; #define Tcl_GetByteArrayFromObj(objPtr, sizePtr) \ Tcl_GetBytesFromObj(NULL, (objPtr), (sizePtr)) +#if TCL_MINOR_VERSION < 1 +# undef Tcl_IsEmpty +#endif + #endif /* _TCLDECLS */ |