From 661a9aefe5e7a922bf6b0be96c933569eb33900e Mon Sep 17 00:00:00 2001 From: simonmar Date: Wed, 2 Jan 2002 12:27:43 +0000 Subject: [PATCH] [project @ 2002-01-02 12:27:43 by simonmar] No need for #ifdef around shift primop now. --- ghc/compiler/nativeGen/MachMisc.lhs | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/ghc/compiler/nativeGen/MachMisc.lhs b/ghc/compiler/nativeGen/MachMisc.lhs index 83c0332..de69ab6 100644 --- a/ghc/compiler/nativeGen/MachMisc.lhs +++ b/ghc/compiler/nativeGen/MachMisc.lhs @@ -177,13 +177,7 @@ exactLog2 x } where pow2 x# | x# ==# 1# = 0# - | otherwise = 1# +# pow2 (w2i (i2w x# `shiftr` 1#)) - -#if __GLASGOW_HASKELL__ >= 503 - shiftr x y = uncheckedShiftRL# x y -#else - shiftr x y = shiftRL# x y -#endif + | otherwise = 1# +# pow2 (w2i (i2w x# `shiftRL#` 1#)) \end{code} % - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -- 1.7.10.4