From c8b3865338d3399dd983b36e1e0ad17f326bdd86 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Wed, 22 Oct 2014 14:11:41 +0000
Subject: an explicit PUSH_FRAME instruction

---
 src/runtime/haskell/PGF/ByteCode.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/runtime/haskell/PGF/ByteCode.hs')

diff --git a/src/runtime/haskell/PGF/ByteCode.hs b/src/runtime/haskell/PGF/ByteCode.hs
index 46f81cff9..f4aebfd92 100644
--- a/src/runtime/haskell/PGF/ByteCode.hs
+++ b/src/runtime/haskell/PGF/ByteCode.hs
@@ -24,6 +24,7 @@ data Instr
   | PUT_LIT Literal
   | SET IVal
   | SET_PAD
+  | PUSH_FRAME
   | PUSH IVal
   | EVAL IVal TailInfo
   | DROP {-# UNPACK #-} !Int
@@ -59,6 +60,7 @@ ppInstr (PUT_CLOSURE   l) = text "PUT_CLOSURE" <+> ppLabel l
 ppInstr (PUT_LIT lit    ) = text "PUT_LIT    " <+> ppLit lit
 ppInstr (SET           v) = text "SET        " <+> ppIVal v
 ppInstr (SET_PAD        ) = text "SET_PAD"
+ppInstr (PUSH_FRAME     ) = text "PUSH_FRAME"
 ppInstr (PUSH          v) = text "PUSH       " <+> ppIVal v
 ppInstr (EVAL       v ti) = text "EVAL       " <+> ppIVal v <+> ppTailInfo ti
 ppInstr (DROP n         ) = text "DROP       " <+> int n
-- 
cgit v1.2.3