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

compile functions

Browse source
This commit is contained in:
Mylloon 2022-12-10 15:17:40 +01:00
parent 1c1e816457
commit efb2a79edf
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
compiler.ml
View file

@ -25,7 +25,11 @@ let rec compile_expr env = function
(fun a -> compile_expr env a @ [ Addi (SP, SP, -4); Sw (V0, Mem (SP, 0)) ]) (fun a -> compile_expr env a @ [ Addi (SP, SP, -4); Sw (V0, Mem (SP, 0)) ])
args args
in in
List.flatten ca @ Env.find f Baselib.builtins List.flatten ca
@
if Env.mem f Baselib.builtins
then Env.find f Baselib.builtins
else [ Jal f; Addi (SP, SP, 4 * List.length args) ]
;; ;;
let compile_instr info = function let compile_instr info = function
@ -48,7 +52,11 @@ let compile_def (Func (name, args, body)) counter =
let compiled = let compiled =
compile_block compile_block
{ asm = [] { asm = []
; env = Env.empty ; env =
List.fold_left
(fun env (arg, addr) -> Env.add arg addr env)
Env.empty
(List.mapi (fun i a -> a, Mem (FP, 4 * (i + 1))) (List.rev args))
; fpo = 8 ; fpo = 8
; cnt = counter + 1 ; cnt = counter + 1
; ret = "ret" ^ string_of_int counter ; ret = "ret" ^ string_of_int counter