2 % (c) The University of Glasgow, 2000-2006
4 \section{Fast integers and booleans}
8 FastInt, _ILIT, iBox, iUnbox,
9 (+#), (-#), (*#), quotFastInt, negateFastInt,
10 (==#), (<#), (<=#), (>=#), (>#),
12 FastBool, fastBool, isFastTrue, fastOr, fastAnd
15 #include "HsVersions.h"
17 #if defined(__GLASGOW_HASKELL__)
21 ( Int(..), Int#, (+#), (-#), (*#),
22 quotInt#, negateInt#, (==#), (<#), (<=#), (>=#), (>#)
29 quotFastInt = quotInt#
30 negateFastInt = negateInt#
35 isFastTrue x = x ==# 1#
43 #else /* ! __GLASGOW_HASKELL__ */
53 negateFastInt = negate
64 #endif /* ! __GLASGOW_HASKELL__ */