gmbytecode/test/asm_code/jumpif.fate

12 lines
154 B
Plaintext

;; CONTRACT jumpif
FUNCTION skip(integer, integer) : integer
;; BB : 0
PUSH arg1
PUSH 0
EQ a a arg0
JUMPIF a 2
;; BB : 1
INCA
JUMP 2
RETURN