summaryrefslogtreecommitdiffstats
path: root/generic/tclStringObj.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclStringObj.c')
-rw-r--r--generic/tclStringObj.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index ed2dba7..106e3c4 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -33,7 +33,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclStringObj.c,v 1.33 2003/10/14 15:44:53 dgp Exp $ */
+ * RCS: @(#) $Id: tclStringObj.c,v 1.34 2003/12/24 04:18:20 davygrvy Exp $ */
#include "tclInt.h"
@@ -707,7 +707,7 @@ Tcl_SetStringObj(objPtr, bytes, length)
*/
if (Tcl_IsShared(objPtr)) {
- panic("Tcl_SetStringObj called with shared object");
+ Tcl_Panic("Tcl_SetStringObj called with shared object");
}
/*
@@ -761,7 +761,7 @@ Tcl_SetObjLength(objPtr, length)
String *stringPtr;
if (Tcl_IsShared(objPtr)) {
- panic("Tcl_SetObjLength called with shared object");
+ Tcl_Panic("Tcl_SetObjLength called with shared object");
}
SetStringFromAny(NULL, objPtr);
@@ -856,7 +856,7 @@ Tcl_AttemptSetObjLength(objPtr, length)
String *stringPtr;
if (Tcl_IsShared(objPtr)) {
- panic("Tcl_AttemptSetObjLength called with shared object");
+ Tcl_Panic("Tcl_AttemptSetObjLength called with shared object");
}
SetStringFromAny(NULL, objPtr);
@@ -1024,7 +1024,7 @@ TclAppendLimitedToObj(objPtr, bytes, length, limit, ellipsis)
int toCopy = 0;
if (Tcl_IsShared(objPtr)) {
- panic("TclAppendLimitedToObj called with shared object");
+ Tcl_Panic("TclAppendLimitedToObj called with shared object");
}
SetStringFromAny(NULL, objPtr);
@@ -1127,7 +1127,7 @@ Tcl_AppendUnicodeToObj(objPtr, unicode, length)
String *stringPtr;
if (Tcl_IsShared(objPtr)) {
- panic("Tcl_AppendUnicodeToObj called with shared object");
+ Tcl_Panic("Tcl_AppendUnicodeToObj called with shared object");
}
if (length == 0) {
@@ -1504,7 +1504,7 @@ Tcl_AppendStringsToObjVA (objPtr, argList)
int nargs, i;
if (Tcl_IsShared(objPtr)) {
- panic("Tcl_AppendStringsToObj called with shared object");
+ Tcl_Panic("Tcl_AppendStringsToObj called with shared object");
}
SetStringFromAny(NULL, objPtr);