diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-04-12 12:15:43 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-04-12 12:15:43 (GMT) |
| commit | 24acc0b24db6fbe9b40e9d06127d2ce73064b7c4 (patch) | |
| tree | 636655c2ef8f1a91a8852438d8ecc33e3d6fc881 | |
| parent | 66c5d3e943bb4fe92c5152042912bd8218f059f8 (diff) | |
| parent | 3f2f704c28a23ff932110f2eab0daeb1536b7bdd (diff) | |
| download | tcl-24acc0b24db6fbe9b40e9d06127d2ce73064b7c4.zip tcl-24acc0b24db6fbe9b40e9d06127d2ce73064b7c4.tar.gz tcl-24acc0b24db6fbe9b40e9d06127d2ce73064b7c4.tar.bz2 | |
merge trunk
| -rw-r--r-- | generic/tclVar.c | 30 |
1 files changed, 2 insertions, 28 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index 2b03ef4..6469c11 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -202,14 +202,10 @@ MODULE_SCOPE Var * TclLookupSimpleVar(Tcl_Interp *interp, static Tcl_DupInternalRepProc DupLocalVarName; static Tcl_FreeInternalRepProc FreeLocalVarName; -static Tcl_UpdateStringProc PanicOnUpdateVarName; static Tcl_FreeInternalRepProc FreeParsedVarName; static Tcl_DupInternalRepProc DupParsedVarName; -static Tcl_UpdateStringProc PanicOnUpdateVarName; -static Tcl_SetFromAnyProc PanicOnSetVarName; - /* * Types of Tcl_Objs used to cache variable lookups. * @@ -231,12 +227,12 @@ static Tcl_SetFromAnyProc PanicOnSetVarName; static const Tcl_ObjType localVarNameType = { "localVarName", - FreeLocalVarName, DupLocalVarName, PanicOnUpdateVarName, PanicOnSetVarName + FreeLocalVarName, DupLocalVarName, NULL, NULL }; static const Tcl_ObjType tclParsedVarNameType = { "parsedVarName", - FreeParsedVarName, DupParsedVarName, PanicOnUpdateVarName, PanicOnSetVarName + FreeParsedVarName, DupParsedVarName, NULL, NULL }; /* @@ -5306,28 +5302,6 @@ TclObjVarErrMsg( */ /* - * Panic functions that should never be called in normal operation. - */ - -static void -PanicOnUpdateVarName( - Tcl_Obj *objPtr) -{ - Tcl_Panic("%s of type %s should not be called", "updateStringProc", - objPtr->typePtr->name); -} - -static int -PanicOnSetVarName( - Tcl_Interp *interp, - Tcl_Obj *objPtr) -{ - Tcl_Panic("%s of type %s should not be called", "setFromAnyProc", - objPtr->typePtr->name); - return TCL_ERROR; -} - -/* * localVarName - * * INTERNALREP DEFINITION: |