diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-04-11 17:29:47 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-04-11 17:29:47 (GMT) |
| commit | 5f08f4b52618056de417f6d543d5bd596d9197eb (patch) | |
| tree | 4630424f79a4a05d187311aaebd9d1e6b2dae13e | |
| parent | 63426502f7ac04dc60ee14a00eb65ad6687ffeef (diff) | |
| download | tcl-5f08f4b52618056de417f6d543d5bd596d9197eb.zip tcl-5f08f4b52618056de417f6d543d5bd596d9197eb.tar.gz tcl-5f08f4b52618056de417f6d543d5bd596d9197eb.tar.bz2 | |
[d1f55451c6] Remove unnecessary panic routines.
| -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 be035f7..b5b5b10 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 }; /* @@ -5505,28 +5501,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: |