[MLton-commit] r5379

[Matthew Fluet]

Object layout for weaks on 64-bit with align 8
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/mlton/codegen/c-codegen/c-codegen.fun

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

Modified: mlton/branches/on-20050822-x86_64-branch/mlton/codegen/c-codegen/c-codegen.fun
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/mlton/codegen/c-codegen/c-codegen.fun	2007-03-01 21:56:20 UTC (rev 5378)
+++ mlton/branches/on-20050822-x86_64-branch/mlton/codegen/c-codegen/c-codegen.fun	2007-03-02 00:18:06 UTC (rev 5379)
@@ -341,6 +341,7 @@
                           (Control.Align4,32,32) => (3, false, 4, 1)
                         | (Control.Align8,32,32) => (3, false, 8, 1)
                         | (Control.Align4,64,64) => (3, false, 8, 1)
+                        | (Control.Align8,64,64) => (3, false, 8, 1)
                         | _ => Error.bug "CCodegen.declareObjectTypes")
                  | WeakGone =>
                       (case (!Control.align,
@@ -349,6 +350,7 @@
                           (Control.Align4,32,32) => (3, false, 8, 0)
                         | (Control.Align8,32,32) => (3, false, 12, 0)
                         | (Control.Align4,64,64) => (3, false, 16, 0)
+                        | (Control.Align8,64,64) => (3, false, 16, 0)
                         | _ => Error.bug "CCodegen.declareObjectTypes")
           in
              concat ["{ ", C.int tag, ", ",