3 files changed, 4 insertions, 24 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls
index e618c9d..28cee54 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -2108,11 +2108,6 @@ 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 7eb6714..20ec35d 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -3409,11 +3409,7 @@ EXTERN void		Tcl_AppendPrintfToObj(Tcl_Obj *objPtr,
 				CONST char *format, ...);
 #endif
 /* Slot 580 is reserved */
-#ifndef TclCanceled_TCL_DECLARED
-#define TclCanceled_TCL_DECLARED
-/* 581 */
-EXTERN int		TclCanceled(Tcl_Interp *interp, int flags);
-#endif
+/* Slot 581 is reserved */
 /* Slot 582 is reserved */
 /* Slot 583 is reserved */
 /* Slot 584 is reserved */
@@ -4083,7 +4079,7 @@ typedef struct TclStubs {
     Tcl_Obj * (*tcl_ObjPrintf) (CONST char *format, ...); /* 578 */
     void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, CONST char *format, ...); /* 579 */
     VOID *reserved580;
-    int (*tclCanceled) (Tcl_Interp *interp, int flags); /* 581 */
+    VOID *reserved581;
     VOID *reserved582;
     VOID *reserved583;
     VOID *reserved584;
@@ -6488,10 +6484,7 @@ extern TclStubs *tclStubsPtr;
 	(tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */
 #endif
 /* Slot 580 is reserved */
-#ifndef TclCanceled
-#define TclCanceled \
-	(tclStubsPtr->tclCanceled) /* 581 */
-#endif
+/* Slot 581 is reserved */
 /* Slot 582 is reserved */
 /* Slot 583 is reserved */
 /* Slot 584 is reserved */
@@ -6549,7 +6542,6 @@ 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 f8012c2..fd4a222 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -76,13 +76,6 @@ 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) {
@@ -1263,7 +1256,7 @@ TclStubs tclStubs = {
     Tcl_ObjPrintf, /* 578 */
     Tcl_AppendPrintfToObj, /* 579 */
     NULL, /* 580 */
-    TclCanceled, /* 581 */
+    NULL, /* 581 */
     NULL, /* 582 */
     NULL, /* 583 */
     NULL, /* 584 */