[MLton-commit] r6264

[Matthew Fluet]

Use symbolic constant
----------------------------------------------------------------------

U   mlton/trunk/mlton/backend/rssa.fun

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

Modified: mlton/trunk/mlton/backend/rssa.fun
===================================================================
--- mlton/trunk/mlton/backend/rssa.fun	2007-12-14 17:39:26 UTC (rev 6263)
+++ mlton/trunk/mlton/backend/rssa.fun	2007-12-14 17:48:44 UTC (rev 6264)
@@ -1579,10 +1579,9 @@
                            (size,
                             Bytes.align
                             (size,
-                             {alignment = (Bytes.fromInt
-                                           (case !Control.align of
-                                               Control.Align4 => 4
-                                             | Control.Align8 => 8))}))
+                             {alignment = (case !Control.align of
+                                               Control.Align4 => Bytes.inWord32
+                                             | Control.Align8 => Bytes.inWord64)}))
                            andalso
                            (case tyconTy tycon of
                                ObjectType.Normal {ty, ...} =>