projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
give the statements under evaluation in the ":show context" output
[ghc-hetmet.git]
/
compiler
/
ghci
/
ByteCodeInstr.lhs
diff --git
a/compiler/ghci/ByteCodeInstr.lhs
b/compiler/ghci/ByteCodeInstr.lhs
index
3f57d18
..
adb47c8
100644
(file)
--- a/
compiler/ghci/ByteCodeInstr.lhs
+++ b/
compiler/ghci/ByteCodeInstr.lhs
@@
-13,6
+13,7
@@
module ByteCodeInstr (
import ByteCodeItbls ( ItblPtr )
import ByteCodeItbls ( ItblPtr )
+import Type
import Outputable
import Name
import Id
import Outputable
import Name
import Id
@@
-141,13
+142,15
@@
data BreakInfo
{ breakInfo_module :: Module
, breakInfo_number :: Int
, breakInfo_vars :: [(Id,Int)]
{ breakInfo_module :: Module
, breakInfo_number :: Int
, breakInfo_vars :: [(Id,Int)]
+ , breakInfo_resty :: Type
}
instance Outputable BreakInfo where
ppr info = text "BreakInfo" <+>
parens (ppr (breakInfo_module info) <+>
ppr (breakInfo_number info) <+>
}
instance Outputable BreakInfo where
ppr info = text "BreakInfo" <+>
parens (ppr (breakInfo_module info) <+>
ppr (breakInfo_number info) <+>
- ppr (breakInfo_vars info))
+ ppr (breakInfo_vars info) <+>
+ ppr (breakInfo_resty info))
-- -----------------------------------------------------------------------------
-- Printing bytecode instructions
-- -----------------------------------------------------------------------------
-- Printing bytecode instructions