From: Bernhard Urban <lewurm@gmail.com>
Date: Wed, 25 Apr 2012 22:59:56 +0000 (+0200)
Subject: asm: add `areturn'
X-Git-Tag: v0.3.2~4
X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=hs-java.git;a=commitdiff_plain;h=42584fde70cbc5485232748e8e94d0cfa8df8d51

asm: add `areturn'
---

diff --git a/JVM/Assembler.hs b/JVM/Assembler.hs
index 6a10b3c..c80363b 100644
--- a/JVM/Assembler.hs
+++ b/JVM/Assembler.hs
@@ -251,6 +251,7 @@ data Instruction =
   | LRETURN                -- ^ 173
   | FRETURN                -- ^ 174
   | DRETURN                -- ^ 175
+  | ARETURN                -- ^ 176
   | RETURN                 -- ^ 177
   | GETSTATIC Word16       -- ^ 178
   | PUTSTATIC Word16       -- ^ 179
@@ -503,6 +504,7 @@ instance BinaryState Integer Instruction where
   put  LRETURN        = putByte 173
   put  FRETURN        = putByte 174
   put  DRETURN        = putByte 175
+  put  ARETURN        = putByte 176
   put  RETURN         = putByte 177
   put (GETSTATIC x)   = put1 178 x
   put (PUTSTATIC x)   = put1 179 x
@@ -670,6 +672,7 @@ instance BinaryState Integer Instruction where
       173 -> return LRETURN
       174 -> return FRETURN
       175 -> return DRETURN
+      176 -> return ARETURN
       177 -> return RETURN
       178 -> GETSTATIC <$> get
       179 -> PUTSTATIC <$> get