diff options
| author | nijtmans <nijtmans> | 2008-12-09 21:47:08 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-12-09 21:47:08 (GMT) |
| commit | c42fcde9e93845b5883b6be8dd4f24a8d5b0b742 (patch) | |
| tree | 96eb16f7d08cd716bfc696bb4af3fac4df091cb5 /generic/tclIntDecls.h | |
| parent | d50d702634fc6eb5493a179a01cd0f9c1e57c9c9 (diff) | |
| download | tcl-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.h | 19 |
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 */ |