fix: Encode constants using little endian
This commit is contained in:
parent
920251e99f
commit
780042035c
1 changed files with 1 additions and 1 deletions
|
|
@ -24,7 +24,7 @@ version1 = P.execPut $ B.putWord8 1
|
|||
toBinary :: Command -> P.Put
|
||||
toBinary (Const i) = do
|
||||
P.putWord8 0x0001
|
||||
P.putInt32be ((fromIntegral i)::Int32)
|
||||
P.putInt32le ((fromIntegral i)::Int32)
|
||||
toBinary Add = P.putWord8 0x0004
|
||||
toBinary Sub = P.putWord8 0x0005
|
||||
toBinary Mult = P.putWord8 0x0006
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue