diff options
author | mig <mig> | 2013-01-03 04:28:01 (GMT) |
---|---|---|
committer | mig <mig> | 2013-01-03 04:28:01 (GMT) |
commit | 2bcf40a3ec387283983319f831835b1f1a32a5f1 (patch) | |
tree | 2929f7344df56d873b1eccca5b401aa0895ec519 | |
parent | 3d5e70d5dc85e8fd518ed7acc4f2b3060020ca6f (diff) | |
download | tcl-2bcf40a3ec387283983319f831835b1f1a32a5f1.zip tcl-2bcf40a3ec387283983319f831835b1f1a32a5f1.tar.gz tcl-2bcf40a3ec387283983319f831835b1f1a32a5f1.tar.bz2 |
a little less broken than before
-rw-r--r-- | generic/tclAllocZippy.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclAllocZippy.c b/generic/tclAllocZippy.c index cc08bbf..1461902 100644 --- a/generic/tclAllocZippy.c +++ b/generic/tclAllocZippy.c @@ -347,13 +347,12 @@ GetAllocCache(void) { Cache *cachePtr = TclGetAllocCache(); if (cachePtr == NULL) { - fprintf(stderr,"0"); - cachePtr = calloc(0, sizeof(Cache)); + cachePtr = calloc(1, sizeof(Cache)); if (cachePtr == NULL) { Tcl_Panic("alloc: could not allocate new cache"); } TclSetAllocCache(cachePtr); - } else {fprintf(stderr,"1");} + } return cachePtr; } |