diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-12 10:21:55 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-12 10:21:55 (GMT) |
| commit | 26f4ba76ca7de932401313aa8bb90cc386861083 (patch) | |
| tree | be5d15b6ce8fb5fbc3c1198cfcb05bb923cfd0ea /generic/tclMain.c | |
| parent | aaf8665696cd7b0d91922cf047daf8e0eb29816e (diff) | |
| download | tcl-26f4ba76ca7de932401313aa8bb90cc386861083.zip tcl-26f4ba76ca7de932401313aa8bb90cc386861083.tar.gz tcl-26f4ba76ca7de932401313aa8bb90cc386861083.tar.bz2 | |
allow novem to use installed Tcl8 .tm packages, such as tcltest and msgcat
remove some dead code (already planned to be removed in Tcl9)
Diffstat (limited to 'generic/tclMain.c')
| -rw-r--r-- | generic/tclMain.c | 18 |
1 files changed, 1 insertions, 17 deletions
diff --git a/generic/tclMain.c b/generic/tclMain.c index 73989ef..6c71fbb 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -284,7 +284,7 @@ Tcl_SourceRCFile( /*---------------------------------------------------------------------- * - * Tcl_Main, Tcl_MainEx -- + * Tcl_MainEx -- * * Main program for tclsh and most other Tcl-based applications. * @@ -632,22 +632,6 @@ Tcl_MainEx( Tcl_Exit(exitCode); } - -#if (TCL_MAJOR_VERSION == 8) && !defined(UNICODE) -#undef Tcl_Main -extern DLLEXPORT void -Tcl_Main( - int argc, /* Number of arguments. */ - char **argv, /* Array of argument strings. */ - Tcl_AppInitProc *appInitProc) - /* Application-specific initialization - * function to call after most initialization - * but before starting to execute commands. */ -{ - Tcl_FindExecutable(argv[0]); - Tcl_MainEx(argc, argv, appInitProc, Tcl_CreateInterp()); -} -#endif /* TCL_MAJOR_VERSION == 8 && !UNICODE */ #ifndef TCL_ASCII_MAIN |