(partial) fix for [c1691dc608]: 32-bit Linux regressions. Eliminate compiler warning

jan.nijtmans · jan.nijtmans · commit a123c440eb54 · 2023-07-12T19:11:46.000Z
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
@@ -99,7 +99,7 @@ static void uniCodePanic(void) {
 }
 #   define Tcl_GetUnicode (unsigned short *(*)(Tcl_Obj *))(void *)uniCodePanic
 #   define Tcl_GetUnicodeFromObj (unsigned short *(*)(Tcl_Obj *, int *))(void *)uniCodePanic
-#   define TclGetUnicodeFromObj (unsigned short *(*)(Tcl_Obj *, ptrdiff_t *))(void *)uniCodePanic
+#   define TclGetUnicodeFromObj (unsigned short *(*)(Tcl_Obj *, void *))(void *)uniCodePanic
 #   define Tcl_NewUnicodeObj (Tcl_Obj *(*)(const unsigned short *, int))(void *)uniCodePanic
 #   define Tcl_SetUnicodeObj (void(*)(Tcl_Obj *, const unsigned short *, int))(void *)uniCodePanic
 #   define Tcl_AppendUnicodeToObj (void(*)(Tcl_Obj *, const unsigned short *, int))(void *)uniCodePanic

Original file line number	Diff line number	Diff line change
`@@ -99,7 +99,7 @@ static void uniCodePanic(void) {`
`99`	`99`	`}`
`100`	`100`	`# define Tcl_GetUnicode (unsigned short ()(Tcl_Obj ))(void )uniCodePanic`
`101`	`101`	`# define Tcl_GetUnicodeFromObj (unsigned short ()(Tcl_Obj , int ))(void *)uniCodePanic`
`102`		`-# define TclGetUnicodeFromObj (unsigned short ()(Tcl_Obj , ptrdiff_t ))(void *)uniCodePanic`
	`102`	`+# define TclGetUnicodeFromObj (unsigned short ()(Tcl_Obj , void ))(void *)uniCodePanic`
`103`	`103`	`# define Tcl_NewUnicodeObj (Tcl_Obj ()(const unsigned short , int))(void )uniCodePanic`
`104`	`104`	`# define Tcl_SetUnicodeObj (void()(Tcl_Obj , const unsigned short , int))(void )uniCodePanic`
`105`	`105`	`# define Tcl_AppendUnicodeToObj (void()(Tcl_Obj , const unsigned short , int))(void )uniCodePanic`