[MLton-commit] r5368

[Matthew Fluet]

Set Basis Library header-word and seqindex-int according to target
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/mlton/control/control-flags.sml

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

Modified: mlton/branches/on-20050822-x86_64-branch/mlton/control/control-flags.sml
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/mlton/control/control-flags.sml	2007-02-28 18:12:10 UTC (rev 5367)
+++ mlton/branches/on-20050822-x86_64-branch/mlton/control/control-flags.sml	2007-02-28 18:13:37 UTC (rev 5368)
@@ -1062,9 +1062,15 @@
                          | 64 => "objptr-rep64.sml"
                          | _ => Error.bug "Control.mlbPathMap")},
                {var = "HEADER_WORD",
-                path = "header-word32.sml"},
+                path = (case Bits.toInt (Target.Size.header ()) of
+                           32 => "header-word32.sml"
+                         | 64 => "header-word64.sml"
+                         | _ => Error.bug "Control.mlbPathMap")},
                {var = "SEQINDEX_INT",
-                path = "seqindex-int32.sml"},
+                path = (case Bits.toInt (Target.Size.seqIndex ()) of
+                           32 => "seqindex-int32.sml"
+                         | 64 => "seqindex-int64.sml"
+                         | _ => Error.bug "Control.mlbPathMap")},
                {var = "DEFAULT_CHAR",
                 path = concat ["default-", !defaultChar, ".sml"]},
                {var = "DEFAULT_WIDECHAR",