projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
More import tidying and fixing the stage 2 build
[ghc-hetmet.git]
/
compiler
/
ghci
/
ByteCodeItbls.lhs
diff --git
a/compiler/ghci/ByteCodeItbls.lhs
b/compiler/ghci/ByteCodeItbls.lhs
index
6513ff6
..
d990da2
100644
(file)
--- a/
compiler/ghci/ByteCodeItbls.lhs
+++ b/
compiler/ghci/ByteCodeItbls.lhs
@@
-1,10
+1,9
@@
%
%
-% (c) The University of Glasgow 2000
+% (c) The University of Glasgow 2000-2006
%
%
-\section[ByteCodeItbls]{Generate infotables for interpreter-made bytecodes}
+ByteCodeItbls: Generate infotables for interpreter-made bytecodes
\begin{code}
\begin{code}
-
{-# OPTIONS -optc-DNON_POSIX_SOURCE #-}
module ByteCodeItbls ( ItblEnv, ItblPtr, mkITbls ) where
{-# OPTIONS -optc-DNON_POSIX_SOURCE #-}
module ByteCodeItbls ( ItblEnv, ItblPtr, mkITbls ) where
@@
-23,14
+22,10
@@
import Util ( lengthIs, listLengthCmp )
import Foreign
import Foreign.C
import Foreign
import Foreign.C
-import DATA_BITS ( Bits(..), shiftR )
+import Data.Bits ( Bits(..), shiftR )
import GHC.Exts ( Int(I#), addr2Int# )
import GHC.Exts ( Int(I#), addr2Int# )
-#if __GLASGOW_HASKELL__ < 503
-import Ptr ( Ptr(..) )
-#else
import GHC.Ptr ( Ptr(..) )
import GHC.Ptr ( Ptr(..) )
-#endif
\end{code}
%************************************************************************
\end{code}
%************************************************************************