diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-05 11:44:02 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-05 11:44:02 (GMT) |
| commit | 0fb466009e4163785bf459cbc6d77be178e62f67 (patch) | |
| tree | f4e295b7b360fe538f593e13a9c2113e5e782a62 | |
| parent | a066019d75adf70a570acde653d89f3fda5254a4 (diff) | |
| download | tcl-0fb466009e4163785bf459cbc6d77be178e62f67.zip tcl-0fb466009e4163785bf459cbc6d77be178e62f67.tar.gz tcl-0fb466009e4163785bf459cbc6d77be178e62f67.tar.bz2 | |
Fix tclStubInit gcc warnings with TCL_UTF_MAX=3
| -rw-r--r-- | generic/tclStubInit.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 7ee7eae..722118e 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -92,11 +92,11 @@ static void uniCodePanic() { Tcl_Panic("This extension uses a deprecated function, not available now: Tcl is compiled with -DTCL_UTF_MAX==%d", TCL_UTF_MAX); } -# define Tcl_GetUnicodeFromObj (Tcl_UniChar *(*)(Tcl_Obj *, size_t *))(void *)uniCodePanic +# define Tcl_GetUnicodeFromObj (Tcl_UniChar *(*)(Tcl_Obj *, Tcl_Size *))(void *)uniCodePanic # define TclGetUnicodeFromObj (Tcl_UniChar *(*)(Tcl_Obj *, int *))(void *)uniCodePanic -# define Tcl_NewUnicodeObj (Tcl_Obj *(*)(const Tcl_UniChar *, size_t))(void *)uniCodePanic -# define Tcl_SetUnicodeObj (void(*)(Tcl_Obj *, const Tcl_UniChar *, size_t))(void *)uniCodePanic -# define Tcl_AppendUnicodeToObj (void(*)(Tcl_Obj *, const Tcl_UniChar *, size_t))(void *)uniCodePanic +# define Tcl_NewUnicodeObj (Tcl_Obj *(*)(const Tcl_UniChar *, Tcl_Size))(void *)uniCodePanic +# define Tcl_SetUnicodeObj (void(*)(Tcl_Obj *, const Tcl_UniChar *, Tcl_Size))(void *)uniCodePanic +# define Tcl_AppendUnicodeToObj (void(*)(Tcl_Obj *, const Tcl_UniChar *, Tcl_Size))(void *)uniCodePanic #endif #define TclUtfCharComplete Tcl_UtfCharComplete |