diff options
| author | mig <mig> | 2013-01-15 19:35:52 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-01-15 19:35:52 (GMT) |
| commit | a516222ac12d462aa9216fe294ad8c8b0cf4dc33 (patch) | |
| tree | f4390779f1403b02307fc0d15bde962352632e81 /generic/tclStubInit.c | |
| parent | 71ccd57a94c21d7e36abe8550f656e6f082a2907 (diff) | |
| parent | 1874c5c7750d3f4dc032c9498cf7270de788e5f2 (diff) | |
| download | tcl-ISC_peephole.zip tcl-ISC_peephole.tar.gz tcl-ISC_peephole.tar.bz2 | |
merge trunkISC_peephole
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 88ada19..1d1fe15 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -41,6 +41,7 @@ #undef Tcl_FindExecutable #undef TclpGetPid #undef TclSockMinimumBuffers +#define TclBackgroundException Tcl_BackgroundException /* See bug 510001: TclSockMinimumBuffers needs plat imp */ #ifdef _WIN64 @@ -367,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 */ @@ -425,7 +426,7 @@ static const TclIntStubs tclIntStubs = { TclGetSrcInfoForPc, /* 233 */ TclVarHashCreateVar, /* 234 */ TclInitVarHashTable, /* 235 */ - 0, /* 236 */ + TclBackgroundException, /* 236 */ TclResetCancellation, /* 237 */ TclNRInterpProc, /* 238 */ TclNRInterpProcCore, /* 239 */ |