diff options
| author | nijtmans <nijtmans> | 2010-09-23 21:40:45 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-09-23 21:40:45 (GMT) |
| commit | a186bdb4397f2d831f6bb04e453fdf14e21c9c97 (patch) | |
| tree | 1a72c5d9af6e0014b67853684fda5e42710dcef6 /generic | |
| parent | 8691a6254e1afce0248c4ff5807236e23e1167a0 (diff) | |
| download | tcl-a186bdb4397f2d831f6bb04e453fdf14e21c9c97.zip tcl-a186bdb4397f2d831f6bb04e453fdf14e21c9c97.tar.gz tcl-a186bdb4397f2d831f6bb04e453fdf14e21c9c97.tar.bz2 | |
Make Tcl_SetPanicProc and Tcl_GetStringResult callable without stubs, just as Tcl_SetVar.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclDecls.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 675f383..fc9e082 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.186 2010/09/16 14:49:37 nijtmans Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.187 2010/09/23 21:40:46 nijtmans Exp $ */ #ifndef _TCLDECLS @@ -3774,12 +3774,16 @@ extern const TclStubs *tclStubsPtr; #if defined(USE_TCL_STUBS) # undef Tcl_CreateInterp # undef Tcl_FindExecutable +# undef Tcl_GetStringResult # undef Tcl_Init +# undef Tcl_SetPanicProc # undef Tcl_SetVar # undef Tcl_StaticPackage # undef TclFSGetNativePath # define Tcl_CreateInterp() (tclStubsPtr->tcl_CreateInterp()) +# define Tcl_GetStringResult(interp) (tclStubsPtr->tcl_GetStringResult(interp)) # define Tcl_Init(interp) (tclStubsPtr->tcl_Init(interp)) +# define Tcl_SetPanicProc(proc) (tclStubsPtr->tcl_SetPanicProc(proc)) # define Tcl_SetVar(interp, varName, newValue, flags) \ (tclStubsPtr->tcl_SetVar(interp, varName, newValue, flags)) #endif |