diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tcl.h | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 67cd181..5d93e8d 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2395,11 +2395,6 @@ const char * Tcl_InitStubs(Tcl_Interp *interp, const char *version, int exact); const char * TclTomMathInitializeStubs(Tcl_Interp *interp, const char *version, int epoch, int revision); -#ifdef _WIN32 -void Tcl_ConsolePanic(const char *format, ...); -#else -#define Tcl_ConsolePanic NULL -#endif /* * When not using stubs, make it a macro. @@ -2429,7 +2424,7 @@ EXTERN const char *Tcl_InitSubsystems(Tcl_PanicProc *panicProc); */ #define Tcl_Main(argc, argv, proc) Tcl_MainEx(argc, argv, proc, \ - (Tcl_InitSubsystems(Tcl_ConsolePanic), Tcl_CreateInterp())) + (Tcl_FindExecutable(argv[0]), (Tcl_CreateInterp)())) EXTERN void Tcl_MainEx(int argc, char **argv, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); EXTERN const char * Tcl_PkgInitStubsCheck(Tcl_Interp *interp, |