[MLton-commit] r6559

[Matthew Fluet]

GC message on thread shrink

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

U   mlton/trunk/runtime/gc/forward.c

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

Modified: mlton/trunk/runtime/gc/forward.c
===================================================================
--- mlton/trunk/runtime/gc/forward.c	2008-04-07 18:55:33 UTC (rev 6558)
+++ mlton/trunk/runtime/gc/forward.c	2008-04-07 18:55:35 UTC (rev 6559)
@@ -87,8 +87,8 @@
            */
           if (reservedNew <= stack->reserved) {
             stack->reserved = reservedNew;
-            if (DEBUG_STACKS)
-              fprintf (stderr, "Shrinking stack to size %s.\n",
+            if (DEBUG_STACKS or s->controls.messages)
+              fprintf (stderr, "[GC: Shrinking stack to size %s bytes.]\n",
                        uintmaxToCommaString(stack->reserved));
           }
         }
@@ -105,8 +105,8 @@
         assert (reservedNew <= stack->reserved);
         if (reservedNew < stack->reserved) {
           stack->reserved = reservedNew;
-          if (DEBUG_STACKS)
-            fprintf (stderr, "Shrinking stack to size %s.\n",
+          if (DEBUG_STACKS or s->controls.messages)
+            fprintf (stderr, "[GC: Shrinking stack to size %s bytes.]\n",
                      uintmaxToCommaString(stack->reserved));
         }
       }