[MLton-commit] r4101

[Matthew Fluet]

typos
----------------------------------------------------------------------

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

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

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/gc/controls.h
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/gc/controls.h	2005-10-10 01:54:23 UTC (rev 4100)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/gc/controls.h	2005-10-10 01:59:41 UTC (rev 4101)
@@ -9,6 +9,6 @@
 struct GC_controls {
   size_t fixedHeap; /* If 0, then no fixed heap. */
   size_t maxHeap; /* if zero, then unlimited, else limit total heap */
-  bool messages;
-  bool summary;
+  bool messages; /* Print a message at the start and end of each gc. */
+  bool summary; /* Print a summary of gc info when program exits. */
 };

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-10 01:54:23 UTC (rev 4100)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/gc/dfs-mark.c	2005-10-10 01:59:41 UTC (rev 4101)
@@ -119,7 +119,7 @@
   assert (nextHeaderp == getHeaderp (next));
   assert (nextHeader == getHeader (next));
   // assert (*(pointer*) todo == next);
-  assert (fetchObjptrFromPointer (todo, s->heap.start) == next);
+  assert (fetchObjptrToPointer (todo, s->heap.start) == next);
   headerp = nextHeaderp;
   header = nextHeader;
   // *(pointer*)todo = prev;