Commit c8fce555 authored by sof's avatar sof
Browse files

[project @ 1998-08-15 18:02:17 by sof]

Another place where shiftRA# was used.
parent 47488950
......@@ -59,7 +59,7 @@ import Stix ( StixTree(..), StixReg(..), sStLitLbl,
)
import Util ( panic )
import Char ( isDigit )
import GlaExts ( word2Int#, int2Word#, shiftRA#, and#, (/=#) )
import GlaExts ( word2Int#, int2Word#, shiftRL#, and#, (/=#) )
\end{code}
\begin{code}
......@@ -294,7 +294,6 @@ extensions. Tough.
\begin{code}
w2i x = word2Int# x
i2w x = int2Word# x
i2w_s x = (x::Int#)
exactLog2 :: Integer -> Maybe Integer
exactLog2 x
......@@ -308,10 +307,10 @@ exactLog2 x
Just (toInteger (I# (pow2 x#)))
}
where
shiftr x y = shiftRA# x y
shiftr x y = shiftRL# x y
pow2 x# | x# ==# 1# = 0#
| otherwise = 1# +# pow2 (w2i (i2w x# `shiftr` i2w_s 1#))
| otherwise = 1# +# pow2 (w2i (i2w x# `shiftr` 1#))
\end{code}
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment