diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-20 16:52:23 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-20 16:52:23 (GMT) |
| commit | ec54c35ce008768e317a58468b971a8f82af634a (patch) | |
| tree | e9e62aa2e94b8ffb3655ee7002f12f97e99a7a08 /generic/tclDecls.h | |
| parent | 32fbf6aa15d0a3d1a6806b0d920e54d05178410c (diff) | |
| parent | 22766f0b3cd9cd215816a0de6c95b44eb7d56bf6 (diff) | |
| download | tcl-ec54c35ce008768e317a58468b971a8f82af634a.zip tcl-ec54c35ce008768e317a58468b971a8f82af634a.tar.gz tcl-ec54c35ce008768e317a58468b971a8f82af634a.tar.bz2 | |
TIP #648: New functions Tcl_NewWideUIntObj()/Tcl_SetWideUIntObj()
Diffstat (limited to 'generic/tclDecls.h')
| -rw-r--r-- | generic/tclDecls.h | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 3e3cb85..29b96b0 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -2018,8 +2018,11 @@ EXTERN int TclUtfNcmp(const char *s1, const char *s2, size_t n); /* 687 */ EXTERN int TclUtfNcasecmp(const char *s1, const char *s2, size_t n); -/* Slot 688 is reserved */ -/* Slot 689 is reserved */ +/* 688 */ +EXTERN Tcl_Obj * Tcl_NewWideUIntObj(Tcl_WideUInt wideValue); +/* 689 */ +EXTERN void Tcl_SetWideUIntObj(Tcl_Obj *objPtr, + Tcl_WideUInt uwideValue); /* 690 */ EXTERN void TclUnusedStubEntry(void); @@ -2745,8 +2748,8 @@ typedef struct TclStubs { Tcl_Obj * (*tcl_DStringToObj) (Tcl_DString *dsPtr); /* 685 */ int (*tclUtfNcmp) (const char *s1, const char *s2, size_t n); /* 686 */ int (*tclUtfNcasecmp) (const char *s1, const char *s2, size_t n); /* 687 */ - void (*reserved688)(void); - void (*reserved689)(void); + Tcl_Obj * (*tcl_NewWideUIntObj) (Tcl_WideUInt wideValue); /* 688 */ + void (*tcl_SetWideUIntObj) (Tcl_Obj *objPtr, Tcl_WideUInt uwideValue); /* 689 */ void (*tclUnusedStubEntry) (void); /* 690 */ } TclStubs; @@ -4138,8 +4141,10 @@ extern const TclStubs *tclStubsPtr; (tclStubsPtr->tclUtfNcmp) /* 686 */ #define TclUtfNcasecmp \ (tclStubsPtr->tclUtfNcasecmp) /* 687 */ -/* Slot 688 is reserved */ -/* Slot 689 is reserved */ +#define Tcl_NewWideUIntObj \ + (tclStubsPtr->tcl_NewWideUIntObj) /* 688 */ +#define Tcl_SetWideUIntObj \ + (tclStubsPtr->tcl_SetWideUIntObj) /* 689 */ #define TclUnusedStubEntry \ (tclStubsPtr->tclUnusedStubEntry) /* 690 */ |