diff options
| author | nijtmans <nijtmans> | 2010-07-24 06:39:52 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-07-24 06:39:52 (GMT) |
| commit | d905057aa1a137b50325a061e0ebb35f5efdf3b1 (patch) | |
| tree | dc43e0c0e3e08205723e1014451c4af144ba8d72 /generic/tclDecls.h | |
| parent | 971d0d7eacc5ec89acf9582a06872a48002a2fa1 (diff) | |
| download | tcl-d905057aa1a137b50325a061e0ebb35f5efdf3b1.zip tcl-d905057aa1a137b50325a061e0ebb35f5efdf3b1.tar.gz tcl-d905057aa1a137b50325a061e0ebb35f5efdf3b1.tar.bz2 | |
[Bug 3029891] Functions that don't belong in the stub table.
Diffstat (limited to 'generic/tclDecls.h')
| -rw-r--r-- | generic/tclDecls.h | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index f0bccc6..96e6a04 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclDecls.h,v 1.177 2010/06/16 14:49:51 nijtmans Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.178 2010/07/24 06:39:52 nijtmans Exp $ */ #ifndef _TCLDECLS @@ -6926,5 +6926,17 @@ extern const TclStubs *tclStubsPtr; #undef TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS DLLIMPORT +#if defined(USE_TCL_STUBS) +# undef Tcl_CreateInterp +# undef Tcl_FindExecutable +# undef Tcl_Init +# undef Tcl_SetVar +# undef Tcl_StaticPackage +# define Tcl_CreateInterp() (tclStubsPtr->tcl_CreateInterp()) +# define Tcl_Init(interp) (tclStubsPtr->tcl_Init(interp)) +# define Tcl_SetVar(interp, varName, newValue, flags) \ + (tclStubsPtr->tcl_SetVar(interp, varName, newValue, flags)) +#endif + #endif /* _TCLDECLS */ |