Fix compiler warning when using Tcl 9.0 headers:

generic/tkImage.c:378:18: warning: cast between incompatible function types from ‘int (*)(Tcl_Interp *, const char *, Tcl_Size, Tcl_Obj * const*, const Tk_ImageType *, struct Tk_ImageModel_ *, void **)’ {aka ‘int (*)(Tcl_Interp *, const char *, long int, Tcl_Obj * const*, const Tk_ImageType *, struct Tk_ImageModel_ *, void **)’} to ‘int (*)(Tcl_Interp *, char *, int, char **, Tk_ImageType *, struct Tk_ImageModel_ *, void **)’ [-Wcast-function-type]
tcltk · Nov 8, 2023 · ca1903b · ca1903b
1 parent dc39c82
commit ca1903b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/generic/tkImage.c b/generic/tkImage.c
@@ -373,7 +373,7 @@ Tk_ImageObjCmd(
 	}
 	Tcl_Preserve(modelPtr);
 	if (oldimage) {
-	    typedef int (OldCreateProc)(Tcl_Interp*, char*, int, char**,
+	    typedef int (OldCreateProc)(Tcl_Interp*, char*, Tcl_Size, char**,
 		Tk_ImageType*, Tk_ImageModel, ClientData*);
 	    i = ((OldCreateProc*)typePtr->createProc)(interp,
 		(char*)name, objc, (char**)args, typePtr,