From b1e6a21c56c5aef62716c35546d4596e11bbbf94 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Fri, 31 Oct 2014 14:16:11 +0000 Subject: now (+) in the abstract syntax works, i.e. it knows how to deal with partial sums --- src/runtime/haskell/PGF/Binary.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (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 6f63e63c0..b2695acbb 100644 --- a/src/runtime/haskell/PGF/Binary.hs +++ b/src/runtime/haskell/PGF/Binary.hs @@ -177,7 +177,11 @@ instance Binary Instr where put (DROP n ) = putWord8 64 >> put n put (JUMP l ) = putWord8 68 >> put l put (FAIL ) = putWord8 72 - put (ADD ) = putWord8 76 + put (PUSH_ACCUM (LInt n)) = putWord8 76 >> put n + put (PUSH_ACCUM (LStr s)) = putWord8 77 >> put s + put (PUSH_ACCUM (LFlt d)) = putWord8 78 >> put d + put (POP_ACCUM ) = putWord8 80 + put (ADD ) = putWord8 84 instance Binary Type where put (DTyp hypos cat exps) = put (hypos,cat,exps) -- cgit v1.2.3