summaryrefslogtreecommitdiffstats
path: root/generic/tclAlloc.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-04-11 19:19:55 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-04-11 19:19:55 (GMT)
commitf05db2499a1f26791588140d9c283f7ee8e7c23a (patch)
treed9f05afa9420890334339deb59874ee16d0dcc2e /generic/tclAlloc.c
parent35931d9a7cb0477591913a5a95bc958f75fbded8 (diff)
downloadtcl-f05db2499a1f26791588140d9c283f7ee8e7c23a.zip
tcl-f05db2499a1f26791588140d9c283f7ee8e7c23a.tar.gz
tcl-f05db2499a1f26791588140d9c283f7ee8e7c23a.tar.bz2
[Bug 3448512]: clock scan "1958-01-01" fails only in debug compilation
Diffstat (limited to 'generic/tclAlloc.c')
-rw-r--r--generic/tclAlloc.c20
1 files changed, 7 insertions, 13 deletions
diff --git a/generic/tclAlloc.c b/generic/tclAlloc.c
index 5022618..7b9c807 100644
--- a/generic/tclAlloc.c
+++ b/generic/tclAlloc.c
@@ -28,12 +28,6 @@
#if USE_TCLALLOC
-#ifdef TCL_DEBUG
-# define DEBUG
-/* #define MSTATS */
-# define RCHECK
-#endif
-
/*
* We should really make use of AC_CHECK_TYPE(caddr_t)
* here, but it can wait until Tcl uses config.h properly.
@@ -71,7 +65,7 @@ union overhead {
unsigned char ovu_index; /* bucket # */
unsigned char ovu_unused; /* unused */
unsigned char ovu_magic1; /* other magic number */
-#ifdef RCHECK
+#ifndef NDEBUG
unsigned short ovu_rmagic; /* range magic number */
unsigned long ovu_size; /* actual block size */
unsigned short ovu_unused2; /* padding to 8-byte align */
@@ -88,7 +82,7 @@ union overhead {
#define MAGIC 0xef /* magic # on accounting info */
#define RMAGIC 0x5555 /* magic # on range info */
-#ifdef RCHECK
+#ifndef NDEBUG
#define RSLOP sizeof (unsigned short)
#else
#define RSLOP 0
@@ -148,7 +142,7 @@ static unsigned int nmalloc[NBUCKETS+1];
#include <stdio.h>
#endif
-#if defined(DEBUG) || defined(RCHECK)
+#if !defined(NDEBUG)
#define ASSERT(p) if (!(p)) panic(# p)
#define RANGE_ASSERT(p) if (!(p)) panic(# p)
#else
@@ -304,7 +298,7 @@ TclpAlloc(nbytes)
#ifdef MSTATS
nmalloc[NBUCKETS]++;
#endif
-#ifdef RCHECK
+#ifndef NDEBUG
/*
* Record allocated size of block and
* bound space with magic numbers.
@@ -355,7 +349,7 @@ TclpAlloc(nbytes)
#ifdef MSTATS
nmalloc[bucket]++;
#endif
-#ifdef RCHECK
+#ifndef NDEBUG
/*
* Record allocated size of block and
* bound space with magic numbers.
@@ -567,7 +561,7 @@ TclpRealloc(cp, nbytes)
#ifdef MSTATS
nmalloc[NBUCKETS]++;
#endif
-#ifdef RCHECK
+#ifndef NDEBUG
/*
* Record allocated size of block and update magic number bounds.
*/
@@ -606,7 +600,7 @@ TclpRealloc(cp, nbytes)
/*
* Ok, we don't have to copy, it fits as-is
*/
-#ifdef RCHECK
+#ifndef NDEBUG
op->ov_size = (nbytes + RSLOP - 1) & ~(RSLOP - 1);
*(unsigned short *)((caddr_t)(op + 1) + op->ov_size) = RMAGIC;
#endif