Commit 47488950 authored by sof's avatar sof
Browse files

[project @ 1998-08-15 17:56:59 by sof]

use shiftRL# instead of shiftRA#, since the latter primop is no more.
parent a08a071e
......@@ -313,7 +313,7 @@ unpkUnique (MkUnique u)
in
(tag, i)
where
shiftr x y = shiftRA# x y
shiftr x y = shiftRL# x y
\end{code}
......
......@@ -799,7 +799,7 @@ shiftR_ :: FAST_INT -> FAST_INT -> FAST_INT
shiftL_ n p = word2Int#((int2Word# n) `shiftL#` p)
shiftR_ n p = word2Int#((int2Word# n) `shiftr` p)
where
shiftr x y = shiftRA# x y
shiftr x y = shiftRL# x y
#else {- not GHC -}
shiftL_ n p = n * (2 ^ p)
......
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