diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-20 22:23:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-20 22:23:45 (GMT) |
| commit | 0fef61d372c72ef6f6eaae70fc2bf9087e0f3789 (patch) | |
| tree | 3b6bc85dd3c22260f2880497df13aad94502fc28 /generic/tclDecls.h | |
| parent | 200d3711e7e5c5a249a3f272ae8338931329e0d8 (diff) | |
| parent | ec54c35ce008768e317a58468b971a8f82af634a (diff) | |
| download | tcl-0fef61d372c72ef6f6eaae70fc2bf9087e0f3789.zip tcl-0fef61d372c72ef6f6eaae70fc2bf9087e0f3789.tar.gz tcl-0fef61d372c72ef6f6eaae70fc2bf9087e0f3789.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 d4fee5e..896deed 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -1867,8 +1867,11 @@ EXTERN int Tcl_UtfNcmp(const char *s1, const char *s2, size_t n); /* 687 */ EXTERN int Tcl_UtfNcasecmp(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); @@ -2570,8 +2573,8 @@ typedef struct TclStubs { Tcl_Obj * (*tcl_DStringToObj) (Tcl_DString *dsPtr); /* 685 */ int (*tcl_UtfNcmp) (const char *s1, const char *s2, size_t n); /* 686 */ int (*tcl_UtfNcasecmp) (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; @@ -3900,8 +3903,10 @@ extern const TclStubs *tclStubsPtr; (tclStubsPtr->tcl_UtfNcmp) /* 686 */ #define Tcl_UtfNcasecmp \ (tclStubsPtr->tcl_UtfNcasecmp) /* 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 */ |