All uses of 'panic' (the macro) changed

to 'Tcl_Panic' (the function).  The #define
of panic in tcl.h clearly states it is
deprecated in the comments.
[Patch 865264]

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);