[MLton-commit] r7086

[Ville Laurikari]

Fix mlnlffigen to use big-endian for HP-UX/IA64 (HP-UX runs ia64 in
big-endian mode, unlike Linux).  Fix IA64 sizes to match the current
64-bit build.

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

U   mlton/trunk/mlnlffigen/control.sml
U   mlton/trunk/mlnlffigen/sizes-ia64.sml

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

Modified: mlton/trunk/mlnlffigen/control.sml
===================================================================
--- mlton/trunk/mlnlffigen/control.sml	2009-04-16 18:49:37 UTC (rev 7085)
+++ mlton/trunk/mlnlffigen/control.sml	2009-04-17 11:06:35 UTC (rev 7086)
@@ -102,9 +102,11 @@
             (AMD64, _) => SOME {name = toString t, sizes = SizesAMD64.sizes,
                                 endianShift = EndianLittle.shift}
           | (HPPA, _) => SOME {name = toString t, sizes = SizesHPPA.sizes,
-                                endianShift = EndianBig.shift}
-          | (IA64, _) => SOME {name = toString t, sizes = SizesIA64.sizes,
-                                endianShift = EndianLittle.shift}
+                               endianShift = EndianBig.shift}
+          | (IA64, HPUX) => SOME {name = toString t, sizes = SizesIA64.sizes,
+                                  endianShift = EndianBig.shift}
+          | (IA64, Linux) => SOME {name = toString t, sizes = SizesIA64.sizes,
+                                   endianShift = EndianLittle.shift}
           | (Sparc, _) => SOME {name = toString t, sizes = SizesSparc.sizes,
                                 endianShift = EndianBig.shift}
           | (PowerPC, _) => SOME {name = toString t, sizes = SizesPPC.sizes,

Modified: mlton/trunk/mlnlffigen/sizes-ia64.sml
===================================================================
--- mlton/trunk/mlnlffigen/sizes-ia64.sml	2009-04-16 18:49:37 UTC (rev 7085)
+++ mlton/trunk/mlnlffigen/sizes-ia64.sml	2009-04-17 11:06:35 UTC (rev 7086)
@@ -11,12 +11,12 @@
   char = {bits = 8, align = 8},
   short = {bits = 16, align = 16},
   int = {bits = 32, align = 32},
-  long = {bits = 32, align = 32},
+  long = {bits = 64, align = 64},
   longlong = {bits = 64, align = 64},
   float = {bits = 32, align = 32},
   double = {bits = 64, align = 64},
-  longdouble = {bits = 128, align = 64},
-  pointer = {bits = 32, align = 32},
+  longdouble = {bits = 128, align = 128},
+  pointer = {bits = 64, align = 64},
   min_struct = {bits = 8, align = 8},
   min_union = {bits = 8, align = 8},
   onlyPackBitFields = false,