summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-04-11 17:29:47 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-04-11 17:29:47 (GMT)
commit5f08f4b52618056de417f6d543d5bd596d9197eb (patch)
tree4630424f79a4a05d187311aaebd9d1e6b2dae13e /generic
parent63426502f7ac04dc60ee14a00eb65ad6687ffeef (diff)
downloadtcl-5f08f4b52618056de417f6d543d5bd596d9197eb.zip
tcl-5f08f4b52618056de417f6d543d5bd596d9197eb.tar.gz
tcl-5f08f4b52618056de417f6d543d5bd596d9197eb.tar.bz2
[d1f55451c6] Remove unnecessary panic routines.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclVar.c30
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: