Another place where shiftRA# was used.
)
import Util ( panic )
import Char ( isDigit )
)
import Util ( panic )
import Char ( isDigit )
-import GlaExts ( word2Int#, int2Word#, shiftRA#, and#, (/=#) )
+import GlaExts ( word2Int#, int2Word#, shiftRL#, and#, (/=#) )
\begin{code}
w2i x = word2Int# x
i2w x = int2Word# x
\begin{code}
w2i x = word2Int# x
i2w x = int2Word# x
exactLog2 :: Integer -> Maybe Integer
exactLog2 x
exactLog2 :: Integer -> Maybe Integer
exactLog2 x
Just (toInteger (I# (pow2 x#)))
}
where
Just (toInteger (I# (pow2 x#)))
}
where
- shiftr x y = shiftRA# x y
+ shiftr x y = shiftRL# x y
- | otherwise = 1# +# pow2 (w2i (i2w x# `shiftr` i2w_s 1#))
+ | otherwise = 1# +# pow2 (w2i (i2w x# `shiftr` 1#))
\end{code}
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
\end{code}
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -