[MLton-commit] r5779

[Matthew Fluet]

Fixed broken GC_frameLayout.kind initialization, which totally screwed time profiling
----------------------------------------------------------------------

U   mlton/trunk/mlton/codegen/c-codegen/c-codegen.fun

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

Modified: mlton/trunk/mlton/codegen/c-codegen/c-codegen.fun
===================================================================
--- mlton/trunk/mlton/codegen/c-codegen/c-codegen.fun	2007-07-17 16:09:08 UTC (rev 5778)
+++ mlton/trunk/mlton/codegen/c-codegen/c-codegen.fun	2007-07-18 19:45:43 UTC (rev 5779)
@@ -317,7 +317,7 @@
          declareArray ("struct GC_frameLayout", "frameLayouts", frameLayouts,
                        fn (_, {frameOffsetsIndex, isC, size}) =>
                        concat ["{",
-                               C.bool isC,
+                               if isC then "C_FRAME" else "ML_FRAME",
                                ", frameOffsets", C.int frameOffsetsIndex,
                                ", ", C.bytes size,
                                "}"])