Commit 1c63991c authored by simonmar's avatar simonmar
Browse files

[project @ 2005-03-09 10:36:38 by simonmar]

revert previous change, it didn't work
parent abde5fdf
......@@ -8,7 +8,6 @@
module BinIface ( writeBinIface, readBinIface, v_IgnoreHiWay ) where
#include "HsVersions.h"
#include "MachDeps.h"
import HscTypes
import BasicTypes
......@@ -26,11 +25,12 @@ import Binary
import Util
import DATA_IOREF
import DATA_WORD ( Word8 )
import EXCEPTION ( throwDyn )
import Monad ( when )
import Outputable
#include "HsVersions.h"
-- ---------------------------------------------------------------------------
writeBinIface :: FilePath -> ModIface -> IO ()
writeBinIface hi_path mod_iface
......@@ -111,7 +111,6 @@ instance Binary ModIface where
put_ bh (show opt_HiVersion)
build_tag <- readIORef v_Build_tag
put bh build_tag
put_ bh (WORD_SIZE_IN_BITS :: Word8)
put_ bh mod
put_ bh is_boot
put_ bh mod_vers
......@@ -147,15 +146,6 @@ instance Binary ModIface where
"mismatched interface file ways: expected "
++ build_tag ++ ", found " ++ check_way))
check_ws <- get bh
let our_ws = WORD_SIZE_IN_BITS :: Word8
when (check_ws /= our_ws) $
-- use userError because this will be caught by readIface
-- which will emit an error msg containing the iface module name.
throwDyn (ProgramError (
"mismatched word size: expected "
++ show our_ws ++ ", found " ++ show check_ws))
mod_name <- get bh
is_boot <- get bh
mod_vers <- get bh
......
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