diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-06-13 17:51:35 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-06-13 17:51:35 (GMT) |
| commit | 7f2b5edac6e9b2e441ead1ee17ca170874b21b45 (patch) | |
| tree | 5cb354392d36fcbbe5cb78c58702fed0e3310441 | |
| parent | ccd007fdf29b1594a648755f0e4aa1c812a30a96 (diff) | |
| download | tcl-dgp_review.zip tcl-dgp_review.tar.gz tcl-dgp_review.tar.bz2 | |
equivalentdgp_review
| -rw-r--r-- | generic/tcl.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index e4fe0b8..224bd1b 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2414,9 +2414,9 @@ const char * TclTomMathInitializeStubs(Tcl_Interp *interp, /* Tcl_InitSubsystems, see TIP #414 */ #ifdef USE_TCL_STUBS -EXTERN Tcl_Interp *Tcl_InitSubsystems(Tcl_PanicProc *panicProc); +EXTERN const char *Tcl_InitSubsystems(Tcl_PanicProc *panicProc); #define Tcl_InitSubsystems(panicProc) \ - Tcl_InitStubs((Tcl_InitSubsystems)(panicProc), NULL, 0) + Tcl_InitStubs((Tcl_Interp *)(Tcl_InitSubsystems)(panicProc), NULL, 0) #else EXTERN const char *Tcl_InitSubsystems(Tcl_PanicProc *panicProc); #endif |