Commit f96a9a1e authored by simonmar's avatar simonmar
Browse files

[project @ 2002-03-28 10:07:05 by simonmar]

This module had what looked like a lot of unnecessary (and now
deprecated) coercions from Word->Int and back, so I removed them.
parent d768bd48
......@@ -29,15 +29,15 @@
strcmp x y = x == y;
entier x = fromIntegral (floor x);
land_i :: Int -> Int -> Int;
land_i x y = wordToInt (fromIntegral x .&. fromIntegral y);
land_i x y = x .&. y;
lnot_i :: Int -> Int;
lnot_i x = wordToInt (complement (fromIntegral x));
lnot_i x = complement x;
lor_i :: Int -> Int -> Int;
lor_i x y = wordToInt (fromIntegral x .|. fromIntegral y);
lor_i x y = x .|. y;
lshift_i :: Int -> Int -> Int;
lshift_i x y = wordToInt (fromIntegral x `shiftL` y);
lshift_i x y = x `shiftL` y;
rshift_i :: Int -> Int -> Int;
rshift_i x y = wordToInt (fromIntegral x `shiftR` y);
rshift_i x y = x `shiftR` y;
write x = abortstr "write not implemented";
descr l u = (l,u);
destr_update ar i x = ar // [(i,x)];
......
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