Tcl Source Code

Artifact 986e9b8e6b7c536071c33bd439bea998c4b437d5:

Attachment "threadallocnull.txt" to ticket [550378ffff] added by hobbs 2002-04-30 05:02:40.

---

Index: generic/tclThreadAlloc.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclThreadAlloc.c,v
retrieving revision 1.1
diff -b -u -r1.1 tclThreadAlloc.c
--- generic/tclThreadAlloc.c	23 Apr 2002 17:03:34 -0000	1.1
+++ generic/tclThreadAlloc.c	29 Apr 2002 22:01:44 -0000
@@ -365,6 +365,7 @@
 void
 TclpFree(char *ptr)
 {
+    if (ptr != NULL) {
     Cache  *cachePtr = GetCache();
     Block *blockPtr;
     int bucket;
@@ -393,6 +394,7 @@
 	    PutBlocks(cachePtr, bucket, binfo[bucket].nmove);
 	}
     }
+    }
 }
 
 
@@ -420,6 +422,10 @@
     void *new;
     size_t size, min;
     int bucket;
+
+    if (ptr == NULL) {
+	return TclpAlloc(reqsize);
+    }
 
     /*
      * If the block is not a system block and fits in place,