From 4d28c7632e83aed413c22001ec0821971f58f14d Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Fri, 5 Sep 2014 11:53:02 +0000 Subject: the code for def rules now uses proper graph update to preserve lazyness --- src/runtime/haskell/PGF/Binary.hs | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'src/runtime/haskell/PGF/Binary.hs') diff --git a/src/runtime/haskell/PGF/Binary.hs b/src/runtime/haskell/PGF/Binary.hs index 2064e9a3b..64707f386 100644 --- a/src/runtime/haskell/PGF/Binary.hs +++ b/src/runtime/haskell/PGF/Binary.hs @@ -153,12 +153,14 @@ instance Binary Instr where put (SET_VALUE n) = putWord8 14 >> put n put (SET_ARG_VAR n) = putWord8 15 >> put n put (SET_FREE_VAR n) = putWord8 16 >> put n - put (PUSH_VALUE n) = putWord8 17 >> put n - put (PUSH_ARG_VAR n) = putWord8 18 >> put n - put (PUSH_FREE_VAR n)= putWord8 19 >> put n - put (TAIL_CALL id) = putWord8 20 >> put id - put (FAIL ) = putWord8 21 - put (RET n) = putWord8 22 >> put n + put (SET_PAD ) = putWord8 17 + put (PUSH_VALUE n) = putWord8 18 >> put n + put (PUSH_ARG_VAR n) = putWord8 19 >> put n + put (PUSH_FREE_VAR n)= putWord8 20 >> put n + put (TAIL_CALL id) = putWord8 21 >> put id + put (FAIL ) = putWord8 22 + put (UPDATE ) = putWord8 23 + put (RET n) = putWord8 24 >> put n instance Binary Type where -- cgit v1.2.3