[MLton-commit] r5439

[Matthew Fluet]

Proper alignment of 64-bit objptr array components with -align 8.

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

U   mlton/branches/on-20050822-x86_64-branch/mlton/backend/packed-representation.fun

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

Modified: mlton/branches/on-20050822-x86_64-branch/mlton/backend/packed-representation.fun
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/mlton/backend/packed-representation.fun	2007-03-15 22:56:22 UTC (rev 5438)
+++ mlton/branches/on-20050822-x86_64-branch/mlton/backend/packed-representation.fun	2007-03-15 22:57:00 UTC (rev 5439)
@@ -764,7 +764,11 @@
                                         (case Type.deWord (Component.ty c) of
                                             NONE => false
                                           | SOME s => 
-                                               WordSize.equals (s, WordSize.word64))))
+                                               WordSize.equals (s, WordSize.word64))
+                                        orelse 
+                                        (Type.isObjptr (Component.ty c)
+                                         andalso WordSize.equals (WordSize.objptr (), 
+                                                                  WordSize.word64))))
                                       then Bytes.alignWord64 width
                                    else width
                        in