diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-13 23:31:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-13 23:31:48 (GMT) |
| commit | be0661f0d37a7e0254f2dc632d0a52534122561d (patch) | |
| tree | a02d248d0d3be783718a1076febfe9b60608487c /generic/tclDecls.h | |
| parent | ec13280d659269d4c1b2ff430befc19d97407f37 (diff) | |
| parent | f89aa502bd4896167982b9eb78630d0813acf4e0 (diff) | |
| download | tcl-be0661f0d37a7e0254f2dc632d0a52534122561d.zip tcl-be0661f0d37a7e0254f2dc632d0a52534122561d.tar.gz tcl-be0661f0d37a7e0254f2dc632d0a52534122561d.tar.bz2 | |
Undo deprecation of Tcl_AppendUnicodeToObj(). See also [https://core.tcl-lang.org/tips/doc/trunk/tip/622.md|TIP #622]
Diffstat (limited to 'generic/tclDecls.h')
| -rw-r--r-- | generic/tclDecls.h | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index e9d7d34..0995678 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -1005,7 +1005,9 @@ EXTERN int TclGetUniChar(Tcl_Obj *objPtr, size_t index); /* 383 */ EXTERN Tcl_Obj * TclGetRange(Tcl_Obj *objPtr, size_t first, size_t last); -/* Slot 384 is reserved */ +/* 384 */ +EXTERN void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr, + const Tcl_UniChar *unicode, size_t length); /* 385 */ EXTERN int Tcl_RegExpMatchObj(Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj); @@ -2182,7 +2184,7 @@ typedef struct TclStubs { int (*tclGetUniChar) (Tcl_Obj *objPtr, size_t index); /* 381 */ void (*reserved382)(void); Tcl_Obj * (*tclGetRange) (Tcl_Obj *objPtr, size_t first, size_t last); /* 383 */ - void (*reserved384)(void); + void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, size_t length); /* 384 */ int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj); /* 385 */ void (*tcl_SetNotifier) (const Tcl_NotifierProcs *notifierProcPtr); /* 386 */ Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */ @@ -3201,7 +3203,8 @@ extern const TclStubs *tclStubsPtr; /* Slot 382 is reserved */ #define TclGetRange \ (tclStubsPtr->tclGetRange) /* 383 */ -/* Slot 384 is reserved */ +#define Tcl_AppendUnicodeToObj \ + (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */ #define Tcl_RegExpMatchObj \ (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */ #define Tcl_SetNotifier \ |