diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-27 12:10:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-27 12:10:04 (GMT) |
| commit | ae1c07653e34a27e672fc6efd107094908e70706 (patch) | |
| tree | bb0aeb9949b978ea12dde2ad3495eae95bc14e60 | |
| parent | 0c1f9e6fcd6641ad219dadbadc45724c39a7171e (diff) | |
| download | tcl-ae1c07653e34a27e672fc6efd107094908e70706.zip tcl-ae1c07653e34a27e672fc6efd107094908e70706.tar.gz tcl-ae1c07653e34a27e672fc6efd107094908e70706.tar.bz2 | |
TclWinGetPlatformId is defined twice. Re-generate tclDecls.h
| -rw-r--r-- | generic/tclDecls.h | 8 | ||||
| -rw-r--r-- | generic/tclStubInit.c | 1 |
2 files changed, 3 insertions, 6 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 447bd9a..be2412a 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -1944,8 +1944,7 @@ EXTERN int Tcl_UtfCharComplete(const char *src, Tcl_Size length); EXTERN const char * Tcl_UtfNext(const char *src); /* 656 */ EXTERN const char * Tcl_UtfPrev(const char *src, const char *start); -/* 657 */ -EXTERN int Tcl_UniCharIsUnicode(int ch); +/* Slot 657 is reserved */ /* 658 */ EXTERN int Tcl_ExternalToUtfDStringEx(Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, @@ -2708,7 +2707,7 @@ typedef struct TclStubs { int (*tcl_UtfCharComplete) (const char *src, Tcl_Size length); /* 654 */ const char * (*tcl_UtfNext) (const char *src); /* 655 */ const char * (*tcl_UtfPrev) (const char *src, const char *start); /* 656 */ - int (*tcl_UniCharIsUnicode) (int ch); /* 657 */ + void (*reserved657)(void); int (*tcl_ExternalToUtfDStringEx) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, Tcl_Size srcLen, int flags, Tcl_DString *dsPtr, Tcl_Size *errorLocationPtr); /* 658 */ int (*tcl_UtfToExternalDStringEx) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, Tcl_Size srcLen, int flags, Tcl_DString *dsPtr, Tcl_Size *errorLocationPtr); /* 659 */ int (*tcl_AsyncMarkFromSignal) (Tcl_AsyncHandler async, int sigNumber); /* 660 */ @@ -4080,8 +4079,7 @@ extern const TclStubs *tclStubsPtr; (tclStubsPtr->tcl_UtfNext) /* 655 */ #define Tcl_UtfPrev \ (tclStubsPtr->tcl_UtfPrev) /* 656 */ -#define Tcl_UniCharIsUnicode \ - (tclStubsPtr->tcl_UniCharIsUnicode) /* 657 */ +/* Slot 657 is reserved */ #define Tcl_ExternalToUtfDStringEx \ (tclStubsPtr->tcl_ExternalToUtfDStringEx) /* 658 */ #define Tcl_UtfToExternalDStringEx \ diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index e250033..975e3ab 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -290,7 +290,6 @@ mp_err TclBN_mp_mul_d(const mp_int *a, unsigned int b, mp_int *c) { # define TclWinGetPlatformId 0 # define TclWinResetInterfaces 0 # define TclWinSetInterfaces 0 -# define TclWinGetPlatformId 0 # define Tcl_Backslash 0 # define Tcl_GetDefaultEncodingDir 0 # define Tcl_SetDefaultEncodingDir 0 |