Handle jumpif.
This commit is contained in:
parent
78a2cf9eb1
commit
27c9b50409
26
test/asm_code/arith.fate
Normal file
26
test/asm_code/arith.fate
Normal file
@ -0,0 +1,26 @@
|
|||||||
|
;; CONTRACT arith
|
||||||
|
|
||||||
|
FUNCTION add (integer, integer) : integer
|
||||||
|
ADD a arg0 arg1
|
||||||
|
RETURN
|
||||||
|
|
||||||
|
FUNCTION sub (integer, integer) : integer
|
||||||
|
SUB a arg0 arg1
|
||||||
|
RETURN
|
||||||
|
|
||||||
|
FUNCTION mul (integer, integer) : integer
|
||||||
|
MUL a arg0 arg1
|
||||||
|
RETURN
|
||||||
|
|
||||||
|
FUNCTION div (integer, integer) : integer
|
||||||
|
DIV a arg0 arg1
|
||||||
|
RETURN
|
||||||
|
|
||||||
|
FUNCTION mod (integer, integer) : integer
|
||||||
|
MOD a arg0 arg1
|
||||||
|
RETURN
|
||||||
|
|
||||||
|
FUNCTION pow (integer, integer) : integer
|
||||||
|
POW a arg0 arg1
|
||||||
|
RETURN
|
||||||
|
|
9
test/asm_code/jumpif.fate
Normal file
9
test/asm_code/jumpif.fate
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
;; CONTRACT jumpif
|
||||||
|
FUNCTION skip(integer, integer) : integer
|
||||||
|
PUSH arg1
|
||||||
|
PUSH 0
|
||||||
|
EQ a a arg0
|
||||||
|
JUMPIF a 2
|
||||||
|
INC
|
||||||
|
JUMP 2
|
||||||
|
RETURN
|
Loading…
x
Reference in New Issue
Block a user