projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
make the smp way RTS-only, normal libraries now work with -smp
[ghc-hetmet.git]
/
ghc
/
compiler
/
ghci
/
ByteCodeInstr.lhs
diff --git
a/ghc/compiler/ghci/ByteCodeInstr.lhs
b/ghc/compiler/ghci/ByteCodeInstr.lhs
index
80788d6
..
7bd4408
100644
(file)
--- a/
ghc/compiler/ghci/ByteCodeInstr.lhs
+++ b/
ghc/compiler/ghci/ByteCodeInstr.lhs
@@
-89,7
+89,8
@@
data BCInstr
-- To do with the heap
| ALLOC_AP Int -- make an AP with this many payload words
| ALLOC_PAP Int Int -- make a PAP with this arity / payload words
-- To do with the heap
| ALLOC_AP Int -- make an AP with this many payload words
| ALLOC_PAP Int Int -- make a PAP with this arity / payload words
- | MKAP Int{-ptr to AP/PAP is this far down stack-} Int{-# words-}
+ | MKAP Int{-ptr to AP is this far down stack-} Int{-# words-}
+ | MKPAP Int{-ptr to PAP is this far down stack-} Int{-# words-}
| UNPACK Int -- unpack N words from t.o.s Constr
| PACK DataCon Int
-- after assembly, the DataCon is an index into the
| UNPACK Int -- unpack N words from t.o.s Constr
| PACK DataCon Int
-- after assembly, the DataCon is an index into the
@@
-250,5
+251,6
@@
bciStackUse SWIZZLE{} = 0
-- so can't use this info. Not that it matters much.
bciStackUse SLIDE{} = 0
bciStackUse MKAP{} = 0
-- so can't use this info. Not that it matters much.
bciStackUse SLIDE{} = 0
bciStackUse MKAP{} = 0
+bciStackUse MKPAP{} = 0
bciStackUse PACK{} = 1 -- worst case is PACK 0 words
\end{code}
bciStackUse PACK{} = 1 -- worst case is PACK 0 words
\end{code}