X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fghci%2FByteCodeInstr.lhs;fp=ghc%2Fcompiler%2Fghci%2FByteCodeInstr.lhs;h=7bd4408fff66895ef648332df7649ac74a236a9b;hb=beb5737b7ee42c4e9373a505e7d957206d69a30e;hp=80788d6f395c56c7d35b41593dbb2096442e7906;hpb=76e3742711eb9eb2fed7654c56e602b54c517e87;p=ghc-hetmet.git

diff --git a/ghc/compiler/ghci/ByteCodeInstr.lhs b/ghc/compiler/ghci/ByteCodeInstr.lhs
index 80788d6..7bd4408 100644
--- 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
-   | 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
@@ -250,5 +251,6 @@ bciStackUse SWIZZLE{}    	  = 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}