[MLton-commit] r6011

Matthew Fluet fluet at mlton.org
Tue Sep 11 17:36:22 PDT 2007


Comment and formatting
----------------------------------------------------------------------

U   mlton/trunk/runtime/gc/copy-thread.c

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

Modified: mlton/trunk/runtime/gc/copy-thread.c
===================================================================
--- mlton/trunk/runtime/gc/copy-thread.c	2007-09-12 00:08:26 UTC (rev 6010)
+++ mlton/trunk/runtime/gc/copy-thread.c	2007-09-12 00:36:21 UTC (rev 6011)
@@ -12,13 +12,12 @@
   if (DEBUG_THREADS)
     fprintf (stderr, "copyThread ("FMTPTR")\n", (uintptr_t)from);
   /* newThread may do a GC, which invalidates from.
-   * Hence we need to stash from where the GC can find it.
+   * Hence we need to stash from someplace that the GC can find it.
    */
   assert (s->savedThread == BOGUS_OBJPTR);
   s->savedThread = pointerToObjptr((pointer)from - offsetofThread (s), s->heap.start);
   to = newThread (s, size);
-  from = (GC_thread)(objptrToPointer(s->savedThread, s->heap.start) 
-                     + offsetofThread (s));
+  from = (GC_thread)(objptrToPointer(s->savedThread, s->heap.start) + offsetofThread (s));
   s->savedThread = BOGUS_OBJPTR;
   if (DEBUG_THREADS) {
     fprintf (stderr, FMTPTR" = copyThread ("FMTPTR")\n",




More information about the MLton-commit mailing list