diff options
Diffstat (limited to 'generic/tclNamesp.c')
| -rw-r--r-- | generic/tclNamesp.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index a463e7f..e596e70 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -21,7 +21,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclNamesp.c,v 1.34 2003/10/14 15:44:52 dgp Exp $ + * RCS: @(#) $Id: tclNamesp.c,v 1.35 2003/12/24 04:18:20 davygrvy Exp $ */ #include "tclInt.h" @@ -424,7 +424,7 @@ Tcl_PushCallFrame(interp, callFramePtr, namespacePtr, isProcCallFrame) } else { nsPtr = (Namespace *) namespacePtr; if (nsPtr->flags & NS_DEAD) { - panic("Trying to push call frame for dead namespace"); + Tcl_Panic("Trying to push call frame for dead namespace"); /*NOTREACHED*/ } } @@ -1691,7 +1691,7 @@ DeleteImportedCmd(clientData) prevPtr = refPtr; } - panic("DeleteImportedCmd: did not find cmd in real cmd's list of import references"); + Tcl_Panic("DeleteImportedCmd: did not find cmd in real cmd's list of import references"); } /* @@ -1955,7 +1955,7 @@ TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, Tcl_PopCallFrame(interp); if (nsPtr == NULL) { - panic("Could not create namespace '%s'", nsName); + Tcl_Panic("Could not create namespace '%s'", nsName); } } else { /* namespace not found and wasn't created */ nsPtr = NULL; @@ -4731,7 +4731,7 @@ NamespaceEnsembleCmd(dummy, interp, objc, objv) } default: - panic("unexpected ensemble command"); + Tcl_Panic("unexpected ensemble command"); } return TCL_OK; } @@ -4894,7 +4894,7 @@ NsEnsembleImplementationCmd(clientData, interp, objc, objv) } hPtr = Tcl_FindHashEntry(&ensemblePtr->subcommandTable, fullName); if (hPtr == NULL) { - panic("full name %s not found in supposedly synchronized hash", + Tcl_Panic("full name %s not found in supposedly synchronized hash", fullName); } prefixObj = (Tcl_Obj *) Tcl_GetHashValue(hPtr); |