diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-28 20:50:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-28 20:50:10 (GMT) |
| commit | 4e1945e4979e5ab95becbfea827c6aca5dc9a9fc (patch) | |
| tree | 0117e883328d19e9924e0b50a8251196f840a4f6 | |
| parent | 4f157eafeb23c2286be5390f95f49dbb132926f6 (diff) | |
| download | tcl-4e1945e4979e5ab95becbfea827c6aca5dc9a9fc.zip tcl-4e1945e4979e5ab95becbfea827c6aca5dc9a9fc.tar.gz tcl-4e1945e4979e5ab95becbfea827c6aca5dc9a9fc.tar.bz2 | |
Demonstrate how the Tcl_Main() macro can use Tcl_InitSubsystems(), as fully equivalent replacement of Tcl_FindExecutable/Tcl_CreateInterp. (not part of TIP #414)
| -rw-r--r-- | generic/tcl.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 73353e1..eab6144 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2425,7 +2425,7 @@ EXTERN Tcl_Interp *Tcl_InitSubsystems(int flags, ...); */ #define Tcl_Main(argc, argv, proc) Tcl_MainEx(argc, argv, proc, \ - (Tcl_FindExecutable(argv[0]), (Tcl_CreateInterp)())) + (Tcl_InitSubsystems(TCL_INIT_CREATE, 0, argv))) EXTERN void Tcl_MainEx(int argc, char **argv, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); EXTERN const char * Tcl_PkgInitStubsCheck(Tcl_Interp *interp, |