diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-04-11 17:34:04 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-04-11 17:34:04 (GMT) |
| commit | 36423720cc76860de336d877bcce1182f2de18a0 (patch) | |
| tree | ff2b440cf2bd54de986526357750a646ac9e4660 /generic/tclVar.c | |
| parent | fdc3008f232503c0410ba087527c4badd3ba7426 (diff) | |
| parent | 5f08f4b52618056de417f6d543d5bd596d9197eb (diff) | |
| download | tcl-36423720cc76860de336d877bcce1182f2de18a0.zip tcl-36423720cc76860de336d877bcce1182f2de18a0.tar.gz tcl-36423720cc76860de336d877bcce1182f2de18a0.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclVar.c')
| -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 a05bcf8..cb1ee21 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. * @@ -227,12 +223,12 @@ static Tcl_SetFromAnyProc PanicOnSetVarName; static const Tcl_ObjType localVarNameType = { "localVarName", - FreeLocalVarName, DupLocalVarName, PanicOnUpdateVarName, PanicOnSetVarName + FreeLocalVarName, DupLocalVarName, NULL, NULL }; static const Tcl_ObjType parsedVarNameType = { "parsedVarName", - FreeParsedVarName, DupParsedVarName, PanicOnUpdateVarName, PanicOnSetVarName + FreeParsedVarName, DupParsedVarName, NULL, NULL }; /* @@ -5501,28 +5497,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: |