summaryrefslogtreecommitdiffstats
path: root/generic/tclIntDecls.h
diff options
context:
space:
mode:
authornijtmans <nijtmans>2008-12-09 21:47:08 (GMT)
committernijtmans <nijtmans>2008-12-09 21:47:08 (GMT)
commitc42fcde9e93845b5883b6be8dd4f24a8d5b0b742 (patch)
tree96eb16f7d08cd716bfc696bb4af3fac4df091cb5 /generic/tclIntDecls.h
parentd50d702634fc6eb5493a179a01cd0f9c1e57c9c9 (diff)
downloadtcl-c42fcde9e93845b5883b6be8dd4f24a8d5b0b742.zip
tcl-c42fcde9e93845b5883b6be8dd4f24a8d5b0b742.tar.gz
tcl-c42fcde9e93845b5883b6be8dd4f24a8d5b0b742.tar.bz2
restore source and binary compatibility
for TIP #337 implementation. (when it's _that_ simple, there is no excuse not to do it) :-)
Diffstat (limited to 'generic/tclIntDecls.h')
-rw-r--r--generic/tclIntDecls.h19
1 files changed, 15 insertions, 4 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h
index a511988..b2f45b1 100644
--- a/generic/tclIntDecls.h
+++ b/generic/tclIntDecls.h
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIntDecls.h,v 1.126 2008/12/09 20:16:30 dgp Exp $
+ * RCS: @(#) $Id: tclIntDecls.h,v 1.127 2008/12/09 21:47:08 nijtmans Exp $
*/
#ifndef _TCLINTDECLS
@@ -30,6 +30,9 @@
# endif
#endif
+/* restore source compatibility for TIP #337 */
+#define TclBackgroundException Tcl_BackgroundException
+
/*
* WARNING: This file is automatically generated by the tools/genStubs.tcl
* script. Any modifications to the function declarations below should be made
@@ -1059,7 +1062,12 @@ EXTERN Var * TclVarHashCreateVar (TclVarHashTable * tablePtr,
EXTERN void TclInitVarHashTable (TclVarHashTable * tablePtr,
Namespace * nsPtr);
#endif
-/* Slot 236 is reserved */
+#ifndef Tcl_BackgroundException_TCL_DECLARED
+#define Tcl_BackgroundException_TCL_DECLARED
+/* 236 */
+EXTERN void Tcl_BackgroundException (Tcl_Interp * interp,
+ int code);
+#endif
#ifndef TclResetCancellation_TCL_DECLARED
#define TclResetCancellation_TCL_DECLARED
/* 237 */
@@ -1364,7 +1372,7 @@ typedef struct TclIntStubs {
void (*tclGetSrcInfoForPc) (CmdFrame * contextPtr); /* 233 */
Var * (*tclVarHashCreateVar) (TclVarHashTable * tablePtr, const char * key, int * newPtr); /* 234 */
void (*tclInitVarHashTable) (TclVarHashTable * tablePtr, Namespace * nsPtr); /* 235 */
- void *reserved236;
+ void (*tcl_BackgroundException) (Tcl_Interp * interp, int code); /* 236 */
int (*tclResetCancellation) (Tcl_Interp * interp, int force); /* 237 */
int (*tclNRInterpProc) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); /* 238 */
int (*tclNRInterpProcCore) (Tcl_Interp * interp, Tcl_Obj * procNameObj, int skip, ProcErrorProc errorProc); /* 239 */
@@ -2105,7 +2113,10 @@ extern const TclIntStubs *tclIntStubsPtr;
#define TclInitVarHashTable \
(tclIntStubsPtr->tclInitVarHashTable) /* 235 */
#endif
-/* Slot 236 is reserved */
+#ifndef Tcl_BackgroundException
+#define Tcl_BackgroundException \
+ (tclIntStubsPtr->tcl_BackgroundException) /* 236 */
+#endif
#ifndef TclResetCancellation
#define TclResetCancellation \
(tclIntStubsPtr->tclResetCancellation) /* 237 */