summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/tcl.decls5
-rw-r--r--generic/tclDecls.h14
-rw-r--r--generic/tclStubInit.c9
3 files changed, 24 insertions, 4 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls
index 28cee54..e618c9d 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -2108,6 +2108,11 @@ declare 578 {
declare 579 {
void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr, const char *format, ...)
}
+
+# Public in Tcl 8.6:
+declare 581 {
+ int TclCanceled(Tcl_Interp *interp, int flags)
+}
declare 630 {
void TclUnusedStubEntry(void)
}
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index 20ec35d..7eb6714 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -3409,7 +3409,11 @@ EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr,
CONST char *format, ...);
#endif
/* Slot 580 is reserved */
-/* Slot 581 is reserved */
+#ifndef TclCanceled_TCL_DECLARED
+#define TclCanceled_TCL_DECLARED
+/* 581 */
+EXTERN int TclCanceled(Tcl_Interp *interp, int flags);
+#endif
/* Slot 582 is reserved */
/* Slot 583 is reserved */
/* Slot 584 is reserved */
@@ -4079,7 +4083,7 @@ typedef struct TclStubs {
Tcl_Obj * (*tcl_ObjPrintf) (CONST char *format, ...); /* 578 */
void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, CONST char *format, ...); /* 579 */
VOID *reserved580;
- VOID *reserved581;
+ int (*tclCanceled) (Tcl_Interp *interp, int flags); /* 581 */
VOID *reserved582;
VOID *reserved583;
VOID *reserved584;
@@ -6484,7 +6488,10 @@ extern TclStubs *tclStubsPtr;
(tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */
#endif
/* Slot 580 is reserved */
-/* Slot 581 is reserved */
+#ifndef TclCanceled
+#define TclCanceled \
+ (tclStubsPtr->tclCanceled) /* 581 */
+#endif
/* Slot 582 is reserved */
/* Slot 583 is reserved */
/* Slot 584 is reserved */
@@ -6542,6 +6549,7 @@ extern TclStubs *tclStubsPtr;
/* !END!: Do not edit above this line. */
+#undef TclCanceled
#undef TclUnusedStubEntry
#undef TCL_STORAGE_CLASS
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 */