diff options
| author | nijtmans <nijtmans> | 2010-07-02 20:48:55 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-07-02 20:48:55 (GMT) |
| commit | fc36414c7fe2d2d3d8bfa9a79a7390d0d30a80eb (patch) | |
| tree | 568b5fbf16d1cd50fd1b5c8a41d98233208ac788 /generic/tclIntDecls.h | |
| parent | b1f2ce2cad5a74808cb19c4ab54a21c303329e51 (diff) | |
| download | tcl-fc36414c7fe2d2d3d8bfa9a79a7390d0d30a80eb.zip tcl-fc36414c7fe2d2d3d8bfa9a79a7390d0d30a80eb.tar.gz tcl-fc36414c7fe2d2d3d8bfa9a79a7390d0d30a80eb.tar.bz2 | |
[Bug #803489] Tcl_FindNamespace problem in the Stubs table
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 37 |
1 files changed, 27 insertions, 10 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 3797664..333e007 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.138 2010/03/20 15:40:13 dkf Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.139 2010/07/02 20:48:55 nijtmans Exp $ */ #ifndef _TCLINTDECLS @@ -30,8 +30,20 @@ # endif #endif -/* restore source compatibility for TIP #337 */ -#define TclBackgroundException Tcl_BackgroundException +/* [Bug #803489] Tcl_FindNamespace problem in the Stubs table */ +#undef Tcl_AppendExportList +#undef Tcl_CreateNamespace +#undef Tcl_DeleteNamespace +#undef Tcl_Export +#undef Tcl_FindCommand +#undef Tcl_FindNamespace +#undef Tcl_FindNamespaceVar +#undef Tcl_ForgetImport +#undef Tcl_GetCommandFromObj +#undef Tcl_GetCommandFullName +#undef Tcl_GetCurrentNamespace +#undef Tcl_GetGlobalNamespace +#undef Tcl_Import /* * WARNING: This file is automatically generated by the tools/genStubs.tcl @@ -972,10 +984,10 @@ EXTERN Var * TclVarHashCreateVar(TclVarHashTable *tablePtr, EXTERN void TclInitVarHashTable(TclVarHashTable *tablePtr, Namespace *nsPtr); #endif -#ifndef Tcl_BackgroundException_TCL_DECLARED -#define Tcl_BackgroundException_TCL_DECLARED +#ifndef TclBackgroundException_TCL_DECLARED +#define TclBackgroundException_TCL_DECLARED /* 236 */ -EXTERN void Tcl_BackgroundException(Tcl_Interp *interp, int code); +EXTERN void TclBackgroundException(Tcl_Interp *interp, int code); #endif #ifndef TclResetCancellation_TCL_DECLARED #define TclResetCancellation_TCL_DECLARED @@ -1291,7 +1303,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 (*tcl_BackgroundException) (Tcl_Interp *interp, int code); /* 236 */ + void (*tclBackgroundException) (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 */ @@ -1978,9 +1990,9 @@ extern const TclIntStubs *tclIntStubsPtr; #define TclInitVarHashTable \ (tclIntStubsPtr->tclInitVarHashTable) /* 235 */ #endif -#ifndef Tcl_BackgroundException -#define Tcl_BackgroundException \ - (tclIntStubsPtr->tcl_BackgroundException) /* 236 */ +#ifndef TclBackgroundException +#define TclBackgroundException \ + (tclIntStubsPtr->tclBackgroundException) /* 236 */ #endif #ifndef TclResetCancellation #define TclResetCancellation \ @@ -2038,4 +2050,9 @@ extern const TclIntStubs *tclIntStubsPtr; #undef TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS DLLIMPORT +/* restore source compatibility for TIP #337 */ +#ifndef TclBackgroundException +# define TclBackgroundException Tcl_BackgroundException +#endif + #endif /* _TCLINTDECLS */ |