diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-27 14:06:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-27 14:06:03 (GMT) |
| commit | 0a1209b8b919a0913b8ef905bd8244dfaf8d56ea (patch) | |
| tree | e13faf6a9d7607a35f01ef2d0d73c876a2320dc8 /generic/tclStubInit.c | |
| parent | 7d678ecc919f1d253250ee607311fad444343d25 (diff) | |
| download | tcl-0a1209b8b919a0913b8ef905bd8244dfaf8d56ea.zip tcl-0a1209b8b919a0913b8ef905bd8244dfaf8d56ea.tar.gz tcl-0a1209b8b919a0913b8ef905bd8244dfaf8d56ea.tar.bz2 | |
Add dummy (undocumented) TclCanceled function in stub table (not exported as symbol or macro), which always returns TCL_OK. Needed for Tk 8.5.14 when running in Tcl 8.6 for properly clean-up when a (Tcl 8.6) thread is canceled.
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index fd4a222..f8012c2 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -76,6 +76,13 @@ MODULE_SCOPE TclPlatStubs tclPlatStubs; MODULE_SCOPE TclStubs tclStubs; MODULE_SCOPE TclTomMathStubs tclTomMathStubs; +#define TclCanceled canceled +static int TclCanceled(interp) + Tcl_Interp *interp; +{ + return TCL_OK; +} + #if defined(_WIN32) || defined(__CYGWIN__) #undef TclWinNToHS unsigned short TclWinNToHS(unsigned short ns) { @@ -1256,7 +1263,7 @@ TclStubs tclStubs = { Tcl_ObjPrintf, /* 578 */ Tcl_AppendPrintfToObj, /* 579 */ NULL, /* 580 */ - NULL, /* 581 */ + TclCanceled, /* 581 */ NULL, /* 582 */ NULL, /* 583 */ NULL, /* 584 */ |