Use correct type for Tk addresses.

QuLogic · QuLogic · commit a91559b82cf2 · 2016-12-17T20:19:56.000-05:00
CPython has used a long for this address since before 2010 (it is difficult to read the merge from SVN back then), and has been a long-from-void* since 2013 (3.3.3 and 2.7.6). Fixes #7633.
diff --git a/src/_tkagg.cpp b/src/_tkagg.cpp
@@ -188,18 +188,18 @@ static PyObject *_tkinit(PyObject *self, PyObject *args)
     Tcl_Interp *interp;
     TkappObject *app;
 
-    Py_ssize_t arg;
+    PyObject *arg;
     int is_interp;
-    if (!PyArg_ParseTuple(args, "ni", &arg, &is_interp)) {
+    if (!PyArg_ParseTuple(args, "Oi", &arg, &is_interp)) {
         return NULL;
     }
 
     if (is_interp) {
-        interp = (Tcl_Interp *)arg;
+        interp = (Tcl_Interp *)PyLong_AsVoidPtr(arg);
     } else {
         /* Do it the hard way.  This will break if the TkappObject
            layout changes */
-        app = (TkappObject *)arg;
+        app = (TkappObject *)PyLong_AsVoidPtr(arg);
         interp = app->interp;
     }
 
