projects
/
hs-java.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ac5c22f
)
asm: add `areturn'
author
Bernhard Urban
<lewurm@gmail.com>
Wed, 25 Apr 2012 22:59:56 +0000
(
00:59
+0200)
committer
Ilya Portnov
<portnov@iportnov.ru>
Sat, 19 May 2012 14:50:45 +0000
(20:50 +0600)
JVM/Assembler.hs
patch
|
blob
|
history
diff --git
a/JVM/Assembler.hs
b/JVM/Assembler.hs
index 6a10b3c0b626637a88f05ca9671ced7cd97de9ef..c80363bf743c6b97613698969a618ffb961bc895 100644
(file)
--- a/
JVM/Assembler.hs
+++ b/
JVM/Assembler.hs
@@
-251,6
+251,7
@@
data Instruction =
| LRETURN -- ^ 173
| FRETURN -- ^ 174
| DRETURN -- ^ 175
| LRETURN -- ^ 173
| FRETURN -- ^ 174
| DRETURN -- ^ 175
+ | ARETURN -- ^ 176
| RETURN -- ^ 177
| GETSTATIC Word16 -- ^ 178
| PUTSTATIC Word16 -- ^ 179
| 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 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
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
173 -> return LRETURN
174 -> return FRETURN
175 -> return DRETURN
+ 176 -> return ARETURN
177 -> return RETURN
178 -> GETSTATIC <$> get
179 -> PUTSTATIC <$> get
177 -> return RETURN
178 -> GETSTATIC <$> get
179 -> PUTSTATIC <$> get