Merge pull request #44 from Bodigrim/master

Support big-endian architectures

Author: Bodigrim

lib/Unicode/Internal/Bits.hs

@@ -9,15 +9,22 @@
 --
 -- Fast, static bitmap lookup utilities
 
+{-# LANGUAGE CPP #-}
+
 module Unicode.Internal.Bits
     (
       lookupBit64
     ) where
 
+#include "MachDeps.h"
+
 import Data.Bits (finiteBitSize, popCount)
 import GHC.Exts
        (Addr#, Int(..), Word(..), indexWordOffAddr#, and#, andI#,
         uncheckedIShiftRL#, uncheckedShiftL#)
+#ifdef WORDS_BIGENDIAN
+import GHC.Exts (byteSwap#)
+#endif
 
 -- | @lookup64 addr index@ looks up the bit stored at bit index @index@ using a
 -- bitmap starting at the address @addr@. Looks up the 64-bit word containing
@@ -35,6 +42,10 @@ lookupBit64 addr# (I# index#) = W# (word## `and#` bitMask##) /= 0
       _  -> popCount fbs -- this is a really weird architecture
 
     wordIndex# = index# `uncheckedIShiftRL#` logFbs#
+#ifdef WORDS_BIGENDIAN
+    word## = byteSwap# (indexWordOffAddr# addr# wordIndex#)
+#else
     word## = indexWordOffAddr# addr# wordIndex#
+#endif
     bitIndex# = index# `andI#` fbs#
     bitMask## = 1## `uncheckedShiftL#` bitIndex#