diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-25 08:20:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-25 08:20:31 (GMT) |
| commit | f768cd1df73e1d1801bef8b03e89609d1bb6f885 (patch) | |
| tree | 8c4f3c6a1559545c092ea0f81baf1a9a7de2d5d0 /generic/tclDecls.h | |
| parent | 0dba465244f6e7cc0396e739ead01dd2575aaf2b (diff) | |
| download | tcl-f768cd1df73e1d1801bef8b03e89609d1bb6f885.zip tcl-f768cd1df73e1d1801bef8b03e89609d1bb6f885.tar.gz tcl-f768cd1df73e1d1801bef8b03e89609d1bb6f885.tar.bz2 | |
Put back Tcl_AppendUnicodeToObj()
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 1345c6c..d95b965 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -1003,7 +1003,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); @@ -2180,7 +2182,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 */ @@ -3199,7 +3201,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 \ |