X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fghci%2FByteCodeInstr.lhs;fp=compiler%2Fghci%2FByteCodeInstr.lhs;h=fee17bccb51c9d7f4603f8ac9e24e1f703567741;hp=adb47c8ac44e58ed8bffaf24f03b49f598cbf12c;hb=86bec4298d582ef1d8f0a201d6a81145e1be9498;hpb=065ce67b1b6ba6b8f3646b73c7cadd50a001a9af

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
    }