diff options
| author | Martin v. Löwis <martin@v.loewis.de> | 2002-12-30 18:14:15 (GMT) |
|---|---|---|
| committer | Martin v. Löwis <martin@v.loewis.de> | 2002-12-30 18:14:15 (GMT) |
| commit | 5b177f18eef4a34a5dc32fb5c94a4d730d2239fa (patch) | |
| tree | 69d15c3baec94d0f4cd7e2f0e026d0e4cdb4f34e /Modules | |
| parent | 207d1c20654468962f0a59ea816a9d2a625ade5c (diff) | |
| download | cpython-5b177f18eef4a34a5dc32fb5c94a4d730d2239fa.zip cpython-5b177f18eef4a34a5dc32fb5c94a4d730d2239fa.tar.gz cpython-5b177f18eef4a34a5dc32fb5c94a4d730d2239fa.tar.bz2 | |
Silence cast warnings for Tcl 8.3.
Diffstat (limited to 'Modules')
| -rw-r--r-- | Modules/_tkinter.c | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/Modules/_tkinter.c b/Modules/_tkinter.c index 1122631..f617088 100644 --- a/Modules/_tkinter.c +++ b/Modules/_tkinter.c @@ -57,6 +57,12 @@ Copyright (C) 1994 Steen Lumholt. #include <tk.h> #endif +/* For Tcl 8.2 and 8.3, CONST* is not defined. */ +#ifndef CONST84_RETURN +#define CONST84_RETURN +#define CONST +#endif + #define TKMAJORMINOR (TK_MAJOR_VERSION*1000 + TK_MINOR_VERSION) #if TKMAJORMINOR < 8002 @@ -1349,9 +1355,9 @@ Tkapp_AddErrorInfo(PyObject *self, PyObject *args) TCL_DECLARE_MUTEX(var_mutex) -typedef const char* (*EventFunc1)(Tcl_Interp*, const char*, int); -typedef const char* (*EventFunc2)(Tcl_Interp*, const char*, const char*, int); -typedef const char* (*EventFunc3)(Tcl_Interp*, const char*, const char*, const char*, int); +typedef CONST84_RETURN char* (*EventFunc1)(Tcl_Interp*, CONST char*, int); +typedef CONST84_RETURN char* (*EventFunc2)(Tcl_Interp*, CONST char*, CONST char*, int); +typedef CONST84_RETURN char* (*EventFunc3)(Tcl_Interp*, CONST char*, CONST char*, CONST char*, int); typedef struct VarEvent { Tcl_Event ev; /* must be first */ TkappObject *self; @@ -1468,9 +1474,9 @@ var_invoke(PyObject *_self, char* arg1, char* arg2, char* arg3, int flags, static PyObject* var_invoke2(PyObject *_self, char* arg1, char* arg2, char* arg3, int flags, - int (*func1)(Tcl_Interp*, const char*, int), - int (*func2)(Tcl_Interp*, const char*, const char*, int), - int (*func3)(Tcl_Interp*, const char*, const char*, const char*, int)) + int (*func1)(Tcl_Interp*, CONST char*, int), + int (*func2)(Tcl_Interp*, CONST char*, CONST char*, int), + int (*func3)(Tcl_Interp*, CONST char*, CONST char*, CONST char*, int)) { return var_invoke(_self, arg1, arg2, arg3, flags, (EventFunc1)func1, (EventFunc2)func2, |