diff options
Diffstat (limited to 'compiler/utils/Util.hs')
| -rw-r--r-- | compiler/utils/Util.hs | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/compiler/utils/Util.hs b/compiler/utils/Util.hs index 6f7a9e5d07..c07b87f547 100644 --- a/compiler/utils/Util.hs +++ b/compiler/utils/Util.hs @@ -87,7 +87,6 @@ module Util ( -- * Integers exactLog2, - byteAlignment, -- * Floating point readRational, @@ -1150,16 +1149,6 @@ exactLog2 x pow2 x | x == 1 = 0 | otherwise = 1 + pow2 (x `shiftR` 1) --- x is aligned at N bytes means the remainder from x / N is zero. --- Currently, interested in N <= 8, but can be expanded to N <= 16 or --- N <= 32 if used within SSE or AVX context. -byteAlignment :: Integer -> Integer -byteAlignment x = case x .&. 7 of - 0 -> 8 - 4 -> 4 - 2 -> 2 - _ -> 1 - {- -- ----------------------------------------------------------------------------- -- Floats |