[MLton-commit] r6820

[Matthew Fluet]

Missing initialization

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

U   mlton/trunk/include/c-main.h

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

Modified: mlton/trunk/include/c-main.h
===================================================================
--- mlton/trunk/include/c-main.h	2008-09-01 13:19:13 UTC (rev 6819)
+++ mlton/trunk/include/c-main.h	2008-09-01 13:19:17 UTC (rev 6820)
@@ -1,4 +1,4 @@
-/* Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
+/* Copyright (C) 1999-2008 Henry Cejtin, Matthew Fluet, Suresh
  *    Jagannathan, and Stephen Weeks.
  * Copyright (C) 1997-2000 NEC Research Institute.
  *
@@ -90,6 +90,7 @@
                 cont.nextChunk = nextChunks[nextFun];                   \
         }                                                               \
         /* Trampoline */                                                \
+        returnToC = FALSE;                                              \
         do {                                                            \
                 cont=(*(struct cont(*)(void))cont.nextChunk)();         \
         } while (not returnToC);                                        \
@@ -98,7 +99,7 @@
         struct cont cont;                                               \
         nextFun = *(uintptr_t*)(gcState.stackTop - GC_RETURNADDRESS_SIZE); \
         cont.nextChunk = nextChunks[nextFun];                           \
-        returnToC = false;                                              \
+        returnToC = FALSE;                                              \
         do {                                                            \
                 cont=(*(struct cont(*)(void))cont.nextChunk)();         \
         } while (not returnToC);                                        \