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

add prefix for user defined fn to avoid conflict with mips instrs

Browse source
This commit is contained in:
Mylloon 2022-12-13 15:00:39 +01:00
parent 245b7f26fe
commit c37a7fe1bc
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
compiler.ml
View file

@ -11,6 +11,8 @@ type info =
; ret : string (* Return *) ; ret : string (* Return *)
} }
let puf = "f_" (* prefix user function *)
let compile_value = function let compile_value = function
| Void -> [ Li (V0, 0) ] | Void -> [ Li (V0, 0) ]
| Int n -> [ Li (V0, n) ] | Int n -> [ Li (V0, n) ]
@ -31,7 +33,7 @@ let rec compile_expr env = function
@ @
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 f; Addi (SP, SP, 4 * List.length args) ] else [ Jal (puf ^ f); Addi (SP, SP, 4 * List.length args) ]
;; ;;
let compile_instr info = function let compile_instr info = function
@ -65,8 +67,9 @@ let compile_def (Func (name, args, body)) counter =
} }
body body
in in
let lbl_puf = if name = "main" then "" else puf in
( compiled.cnt ( compiled.cnt
, [ Label name , [ Label (lbl_puf ^ name)
; Addi (SP, SP, -compiled.fpo) ; Addi (SP, SP, -compiled.fpo)
; Sw (RA, Mem (SP, compiled.fpo - 4)) ; Sw (RA, Mem (SP, compiled.fpo - 4))
; Sw (FP, Mem (SP, compiled.fpo - 8)) ; Sw (FP, Mem (SP, compiled.fpo - 8))