Paris8/compilateurMIPS
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix inline fn args not removed from stack

Browse source
This commit is contained in:
Mylloon 2022-12-23 06:40:40 +01:00
parent b74a526b2f
commit 843ba8b034
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
compiler.ml
View file

@ -30,10 +30,10 @@ let rec compile_expr env = function
args
in
List.flatten ca
@
if Env.mem f Baselib.builtins
then Env.find f Baselib.builtins
else [ Jal (puf ^ f); Addi (SP, SP, 4 * List.length args) ]
@ (if Env.mem f Baselib.builtins
then Env.find f Baselib.builtins
else [ Jal (puf ^ f) ])
@ [ Addi (SP, SP, 4 * List.length args) ]
;;
let rec compile_instr info = function