remove the ITBL_SIZE constants which were wrong, but fortunately unused

[ghc-hetmet.git] / compiler / main / Breakpoints.hs

diff --git a/compiler/main/Breakpoints.hs b/compiler/main/Breakpoints.hs
index b1b0118..c4318ca 100644 (file)
--- a/compiler/main/Breakpoints.hs
+++ b/compiler/main/Breakpoints.hs
@@ -18,8 +18,9 @@ import Name
 import Var                       ( Id )\r
 import PrelNames\r
 \r
-import GHC.Exts                  ( unsafeCoerce# )\r
+import GHC.Exts\r
 \r
+#ifdef GHCI\r
 data BkptHandler a = BkptHandler {\r
      handleBreakpoint  :: forall b. Session -> [(Id,HValue)] -> BkptLocation a ->  String -> b -> IO b\r
    , isAutoBkptEnabled :: Session -> BkptLocation a -> IO Bool\r
@@ -29,6 +30,7 @@ nullBkptHandler = BkptHandler {
     isAutoBkptEnabled = \ _ _     -> return False,\r
     handleBreakpoint  = \_ _ _ _ b -> putStrLn "null Bkpt Handler" >> return b\r
                               }\r
+#endif\r
 \r
 type BkptLocation a = (a, SiteNumber)\r
 type SiteNumber   = Int\r
@@ -44,10 +46,11 @@ noDbgSites = []
 #ifdef GHCI\r
 lookupBogusBreakpointVal :: Name -> Maybe HValue\r
 lookupBogusBreakpointVal name \r
-  | name == breakpointJumpName     = Just$ unsafeCoerce# (\_ _ _ _ a->a)\r
-  | name == breakpointAutoJumpName = Just$ unsafeCoerce# (\_ _ _ _ a->a)\r
-  | name == breakpointCondJumpName = Just$ unsafeCoerce# (\_ _ _ _ _ a->a)\r
+  | name == breakpointJumpName     = Just$ unsafeCoerce# (\_ _ a->a)\r
+  | name == breakpointAutoJumpName = Just$ unsafeCoerce# (\_ _ a->a)\r
+  | name == breakpointCondJumpName = Just$ unsafeCoerce# (\_ _ _ a->a)\r
   | otherwise = Nothing\r
 #else \r
 lookupBogusBreakpointVal _ = Nothing\r
-#endif //GHCI\r
+#endif /* GHCI */\r
+\r