[MLton-commit] r5673

[Matthew Fluet]

Skip 'checkOffset' on big-endian targets, since the logic doesn't apply
----------------------------------------------------------------------

U   mlton/trunk/mlton/backend/rep-type.fun

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

Modified: mlton/trunk/mlton/backend/rep-type.fun
===================================================================
--- mlton/trunk/mlton/backend/rep-type.fun	2007-06-24 16:27:35 UTC (rev 5672)
+++ mlton/trunk/mlton/backend/rep-type.fun	2007-06-24 18:22:05 UTC (rev 5673)
@@ -659,7 +659,9 @@
                         Bits => loop (Bits.zero, (bits (Bits.- (width ty, offset))) :: tys)
                       | _ => false)
    in
-      loop (Bytes.toBits offset, getTys base)
+      if Control.Target.bigEndian ()
+         then true
+      else loop (Bytes.toBits offset, getTys base)
    end
 
 fun offsetIsOk {base, offset, tyconTy, result} =