[MLton-commit] r4105

[Matthew Fluet]

Warnings
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/runtime/gc/dfs-mark.c
U   mlton/branches/on-20050822-x86_64-branch/runtime/gc/invariant.c

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

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/gc/dfs-mark.c
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/gc/dfs-mark.c	2005-10-12 00:55:18 UTC (rev 4104)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/gc/dfs-mark.c	2005-10-12 03:13:52 UTC (rev 4105)
@@ -163,7 +163,7 @@
     index = 0;
 markInNormal:
     if (DEBUG_MARK_COMPACT)
-      fprintf (stderr, "markInNormal  index = %d\n", index);
+      fprintf (stderr, "markInNormal  index = %"PRIu32"\n", index);
     assert (index < numObjptrs);
     // next = *(pointer*)todo;
     next = fetchObjptrToPointer (todo, s->heap.start);
@@ -218,7 +218,7 @@
     todo += numNonObjptrsToBytes (numNonObjptrs, ARRAY_TAG);
 markInArray:
     if (DEBUG_MARK_COMPACT)
-      fprintf (stderr, "markInArray arrayIndex = %u index = %u\n",
+      fprintf (stderr, "markInArray arrayIndex = %"PRIu32" index = %"PRIu32"\n",
                arrayIndex, index);
     assert (arrayIndex < getArrayLength (cur));
     assert (index < numObjptrs);

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/gc/invariant.c
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/gc/invariant.c	2005-10-12 00:55:18 UTC (rev 4104)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/gc/invariant.c	2005-10-12 03:13:52 UTC (rev 4105)
@@ -83,7 +83,7 @@
 
 static bool mutatorFrontierInvariant (GC_state s) {
   GC_thread ct = currentThread(s);
-  return (ct->bytesNeeded <= s->limitPlusSlop - s->frontier);
+  return (ct->bytesNeeded <= (size_t)(s->limitPlusSlop - s->frontier));
 }
 
 static bool mutatorStackInvariant (GC_state s) {