[MLton-commit] r4768

Matthew Fluet fluet at mlton.org
Tue Oct 24 13:41:52 PDT 2006


Fixing comment; adding message on alternate branch
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/runtime/gc/hash-cons.c

----------------------------------------------------------------------

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/gc/hash-cons.c
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/gc/hash-cons.c	2006-10-24 19:37:58 UTC (rev 4767)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/gc/hash-cons.c	2006-10-24 20:41:51 UTC (rev 4768)
@@ -57,12 +57,14 @@
   t->elementsLengthMaxLog2 = 6;  // and its log base 2
   if (elementsLengthMax < t->elementsLengthMax) {
     if (DEBUG_SHARE)
-      fprintf (stderr, "too small -- using malloc\n");
+      fprintf (stderr, "elementsLengthMax too small -- using calloc\n");
     t->elementsIsInHeap = FALSE;
     t->elements = 
       (struct GC_objectHashElement *)
       (calloc_safe(t->elementsLengthMax, sizeof(*(t->elements))));
   } else {
+    if (DEBUG_SHARE)
+      fprintf (stderr, "elementsLengthMax big enough -- using heap\n");
     t->elementsIsInHeap = TRUE;
     t->elements = (struct GC_objectHashElement*)regionStart;
     // Find the largest power of two that fits.




More information about the MLton-commit mailing list