diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-14 15:19:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-14 15:19:18 (GMT) |
| commit | a8dc97056d6b68ef14637bf9e6672707b32745b3 (patch) | |
| tree | 31cb160cbb890980419a769ceac2b44f3ced80ef /generic/tclStubInit.c | |
| parent | e60c4a17aeedfbaa0ad9bc054f87f3096f123d48 (diff) | |
| download | tcl-a8dc97056d6b68ef14637bf9e6672707b32745b3.zip tcl-a8dc97056d6b68ef14637bf9e6672707b32745b3.tar.gz tcl-a8dc97056d6b68ef14637bf9e6672707b32745b3.tar.bz2 | |
Put back Tcl_[GS]etStartupScript in internal stub table, so extensions using this, compiled against 8.5 headers still run in Tcl 8.6.
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 14c838f..1d1fe15 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -368,8 +368,8 @@ static const TclIntStubs tclIntStubs = { TclCallVarTraces, /* 175 */ TclCleanupVar, /* 176 */ TclVarErrMsg, /* 177 */ - 0, /* 178 */ - 0, /* 179 */ + Tcl_SetStartupScript, /* 178 */ + Tcl_GetStartupScript, /* 179 */ 0, /* 180 */ 0, /* 181 */ TclpLocaltime, /* 182 */ |