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

6
compiler.ml
View file

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