projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2003-06-03 09:41:48 by ross]
[ghc-hetmet.git]
/
ghc
/
compiler
/
utils
/
UniqFM.lhs
diff --git
a/ghc/compiler/utils/UniqFM.lhs
b/ghc/compiler/utils/UniqFM.lhs
index
6aa75b9
..
e38f4f5
100644
(file)
--- a/
ghc/compiler/utils/UniqFM.lhs
+++ b/
ghc/compiler/utils/UniqFM.lhs
@@
-153,7
+153,7
@@
ufmToList :: UniqFM elt -> [(Unique, elt)]
, UniqFM elt -> Unique -> Maybe elt
#-}
, UniqFM elt -> Unique -> Maybe elt
#-}
-#endif {- __GLASGOW_HASKELL__ -}
+#endif /* __GLASGOW_HASKELL__ */
#endif
\end{code}
#endif
\end{code}
@@
-814,11
+814,11
@@
shiftR_ n p = word2Int#((int2Word# n) `shiftr` p)
shiftr x y = shiftRL# x y
#endif
shiftr x y = shiftRL# x y
#endif
-#else {- not GHC -}
+#else /* not GHC */
shiftL_ n p = n * (2 ^ p)
shiftR_ n p = n `quot` (2 ^ p)
shiftL_ n p = n * (2 ^ p)
shiftR_ n p = n `quot` (2 ^ p)
-#endif {- not GHC -}
+#endif /* not GHC */
\end{code}
\begin{code}
\end{code}
\begin{code}