X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghci%2FByteCodeInstr.lhs;h=fee17bccb51c9d7f4603f8ac9e24e1f703567741;hb=4da439a6b1e343fc5216d5c6bb51858c6d9aacd6;hp=adb47c8ac44e58ed8bffaf24f03b49f598cbf12c;hpb=568e6b65ac52a2bcdb0450cc265f52080f78ab08;p=ghc-hetmet.git

diff --git a/compiler/ghci/ByteCodeInstr.lhs b/compiler/ghci/ByteCodeInstr.lhs
index adb47c8..fee17bc 100644
--- a/compiler/ghci/ByteCodeInstr.lhs
+++ b/compiler/ghci/ByteCodeInstr.lhs
@@ -140,7 +140,7 @@ data BCInstr
 data BreakInfo 
    = BreakInfo
    { breakInfo_module :: Module
-   , breakInfo_number :: Int
+   , breakInfo_number :: {-# UNPACK #-} !Int
    , breakInfo_vars   :: [(Id,Int)]
    , breakInfo_resty  :: Type
    }