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:
75ef148
)
Fix some docs.
author
Ilya Portnov
<portnov84@rambler.ru>
Sat, 18 Jun 2011 17:01:39 +0000
(23:01 +0600)
committer
Ilya Portnov
<portnov84@rambler.ru>
Sat, 18 Jun 2011 17:01:39 +0000
(23:01 +0600)
JVM/Assembler.hs
patch
|
blob
|
history
diff --git
a/JVM/Assembler.hs
b/JVM/Assembler.hs
index cc886ae807f50d59fd830a18bf46c9e4684b63e2..a3162c0296b02dd2a685364ffecbb454b7faf2a9 100644
(file)
--- a/
JVM/Assembler.hs
+++ b/
JVM/Assembler.hs
@@
-273,7
+273,7
@@
data Instruction =
| JSR_W Word32 -- ^ 201
deriving (Eq, Show)
| JSR_W Word32 -- ^ 201
deriving (Eq, Show)
---
^
JVM array type (primitive types)
+--
|
JVM array type (primitive types)
data ArrayType =
T_BOOLEAN -- ^ 4
| T_CHAR -- ^ 5
data ArrayType =
T_BOOLEAN -- ^ 4
| T_CHAR -- ^ 5
@@
-285,14
+285,14
@@
data ArrayType =
| T_LONG -- ^ 11
deriving (Eq, Show, Enum)
| T_LONG -- ^ 11
deriving (Eq, Show, Enum)
---
^
Parse opcode with immediate constant
+--
|
Parse opcode with immediate constant
imm :: Word8 -- ^ Base opcode
-> (IMM -> Instruction) -- ^ Instruction constructor
-> Word8 -- ^ Opcode to parse
-> GetState s Instruction
imm base constr x = return $ constr $ toEnum $ fromIntegral (x-base)
imm :: Word8 -- ^ Base opcode
-> (IMM -> Instruction) -- ^ Instruction constructor
-> Word8 -- ^ Opcode to parse
-> GetState s Instruction
imm base constr x = return $ constr $ toEnum $ fromIntegral (x-base)
---
^
Put opcode with immediate constant
+--
|
Put opcode with immediate constant
putImm :: Word8 -- ^ Base opcode
-> IMM -- ^ Constant to add to opcode
-> PutState Integer ()
putImm :: Word8 -- ^ Base opcode
-> IMM -- ^ Constant to add to opcode
-> PutState Integer ()
@@
-326,7
+326,7
@@
instance BinaryState Integer ArrayType where
put t = putByte (atype2byte t)
put t = putByte (atype2byte t)
---
^
Put opcode with one argument
+--
|
Put opcode with one argument
put1 :: (BinaryState Integer a)
=> Word8 -- ^ Opcode
-> a -- ^ First argument
put1 :: (BinaryState Integer a)
=> Word8 -- ^ Opcode
-> a -- ^ First argument