summaryrefslogtreecommitdiffstats
path: root/mac/tclMacResource.c
diff options
context:
space:
mode:
authordavygrvy <davygrvy@pobox.com>2003-12-24 04:18:18 (GMT)
committerdavygrvy <davygrvy@pobox.com>2003-12-24 04:18:18 (GMT)
commit5d224fb11538aa654ba2028f75e5ffa06df2c579 (patch)
treeeff546c6e792fecd4310f81379419c1d68d63c28 /mac/tclMacResource.c
parentbdb55bff6176c625c664d4ea5a4ec5187839d7a8 (diff)
downloadtcl-5d224fb11538aa654ba2028f75e5ffa06df2c579.zip
tcl-5d224fb11538aa654ba2028f75e5ffa06df2c579.tar.gz
tcl-5d224fb11538aa654ba2028f75e5ffa06df2c579.tar.bz2
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]
Diffstat (limited to 'mac/tclMacResource.c')
-rw-r--r--mac/tclMacResource.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/mac/tclMacResource.c b/mac/tclMacResource.c
index aff6bed..3d228d2 100644
--- a/mac/tclMacResource.c
+++ b/mac/tclMacResource.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclMacResource.c,v 1.19 2003/10/23 10:07:09 vincentdarley Exp $
+ * RCS: @(#) $Id: tclMacResource.c,v 1.20 2003/12/24 04:18:21 davygrvy Exp $
*/
#include <Errors.h>
@@ -547,7 +547,7 @@ resourceRef? resourceType");
macPermision = fsRdWrShPerm;
break;
default:
- panic("Tcl_ResourceObjCmd: invalid mode value");
+ Tcl_Panic("Tcl_ResourceObjCmd: invalid mode value");
break;
}
} else {
@@ -791,7 +791,7 @@ resourceRef? resourceType");
if (resource == NULL) {
resource = NewHandleSys(length);
if (resource == NULL) {
- panic("could not allocate memory to write resource");
+ Tcl_Panic("could not allocate memory to write resource");
}
}
HLock(resource);
@@ -862,7 +862,7 @@ resourceRef? resourceType");
SetHandleSize(resource, length);
if ( MemError() != noErr ) {
- panic("could not allocate memory to write resource");
+ Tcl_Panic("could not allocate memory to write resource");
}
HLock(resource);
@@ -916,7 +916,7 @@ resourceRef? resourceType");
return result;
default:
- panic("Tcl_GetIndexFromObj returned unrecognized option");
+ Tcl_Panic("Tcl_GetIndexFromObj returned unrecognized option");
return TCL_ERROR; /* Should never be reached. */
}
}
@@ -2042,7 +2042,7 @@ TclMacRegisterResourceFork(
nameHashPtr = Tcl_CreateHashEntry(&nameTable, resourceId, &new);
if (!new) {
- panic("resource id has repeated itself");
+ Tcl_Panic("resource id has repeated itself");
}
resourceRef = (OpenResourceFork *) ckalloc(sizeof(OpenResourceFork));
@@ -2145,7 +2145,7 @@ TclMacUnRegisterResourceFork(
}
}
if (!match) {
- panic("the resource Fork List is out of synch!");
+ Tcl_Panic("the resource Fork List is out of synch!");
}
Tcl_ListObjReplace(NULL, resourceForkList, index, 1, 0, NULL);
@@ -2153,7 +2153,7 @@ TclMacUnRegisterResourceFork(
resourceHashPtr = Tcl_FindHashEntry(&resourceTable, (char *) fileRef);
if (resourceHashPtr == NULL) {
- panic("Resource & Name tables are out of synch in resource command.");
+ Tcl_Panic("Resource & Name tables are out of synch in resource command.");
}
ckfree(Tcl_GetHashValue(resourceHashPtr));
Tcl_DeleteHashEntry(resourceHashPtr);