summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog6
-rw-r--r--generic/tclCkalloc.c16
2 files changed, 14 insertions, 8 deletions
diff --git a/ChangeLog b/ChangeLog
index 0847fd9..bd4ed65 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-07-11 Donal K. Fellows <fellowsd@cs.man.ac.uk>
+
+ * generic/tclCkalloc.c: ckalloc() and friends take the block size
+ as an unsigned, so we should use %ud when reporting it in fprintf()
+ and panic().
+
2002-07-11 Miguel Sofer <msofer@users.sourceforge.net>
* generic/tclCompile.c: now setting local vars undefined at
diff --git a/generic/tclCkalloc.c b/generic/tclCkalloc.c
index 434df51..4a6c279 100644
--- a/generic/tclCkalloc.c
+++ b/generic/tclCkalloc.c
@@ -13,7 +13,7 @@
*
* This code contributed by Karl Lehenbauer and Mark Diekhans
*
- * RCS: @(#) $Id: tclCkalloc.c,v 1.15 2002/01/25 20:40:55 dgp Exp $
+ * RCS: @(#) $Id: tclCkalloc.c,v 1.16 2002/07/11 13:53:59 dkf Exp $
*/
#include "tclInt.h"
@@ -378,7 +378,7 @@ Tcl_DbCkalloc(size, file, line)
if (result == NULL) {
fflush(stdout);
TclDumpMemoryInfo(stderr);
- panic("unable to alloc %d bytes, %s line %d", size, file, line);
+ panic("unable to alloc %ud bytes, %s line %d", size, file, line);
}
/*
@@ -422,7 +422,7 @@ Tcl_DbCkalloc(size, file, line)
}
if (alloc_tracing)
- fprintf(stderr,"ckalloc %lx %d %s %d\n",
+ fprintf(stderr,"ckalloc %lx %ud %s %d\n",
(long unsigned int) result->body, size, file, line);
if (break_on_malloc && (total_mallocs >= break_on_malloc)) {
@@ -507,7 +507,7 @@ Tcl_AttemptDbCkalloc(size, file, line)
}
if (alloc_tracing)
- fprintf(stderr,"ckalloc %lx %d %s %d\n",
+ fprintf(stderr,"ckalloc %lx %ud %s %d\n",
(long unsigned int) result->body, size, file, line);
if (break_on_malloc && (total_mallocs >= break_on_malloc)) {
@@ -1010,7 +1010,7 @@ Tcl_Alloc (size)
* a special pointer on failure, but we only check for NULL
*/
if ((result == NULL) && size) {
- panic("unable to alloc %d bytes", size);
+ panic("unable to alloc %ud bytes", size);
}
return result;
}
@@ -1027,7 +1027,7 @@ Tcl_DbCkalloc(size, file, line)
if ((result == NULL) && size) {
fflush(stdout);
- panic("unable to alloc %d bytes, %s line %d", size, file, line);
+ panic("unable to alloc %ud bytes, %s line %d", size, file, line);
}
return result;
}
@@ -1085,7 +1085,7 @@ Tcl_Realloc(ptr, size)
result = TclpRealloc(ptr, size);
if ((result == NULL) && size) {
- panic("unable to realloc %d bytes", size);
+ panic("unable to realloc %ud bytes", size);
}
return result;
}
@@ -1103,7 +1103,7 @@ Tcl_DbCkrealloc(ptr, size, file, line)
if ((result == NULL) && size) {
fflush(stdout);
- panic("unable to realloc %d bytes, %s line %d", size, file, line);
+ panic("unable to realloc %ud bytes, %s line %d", size, file, line);
}
return result;
}