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

fix fmt_instr

Browse source
This commit is contained in:
Mylloon 2022-12-09 14:13:19 +01:00
parent 209d8382e2
commit a923bdb6b9
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 19 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
mips.ml
View file

@ -113,11 +113,6 @@ let fmt_loc = function
;; ;;
let fmt_instr = function let fmt_instr = function
| Label _ -> ""
| _ as i ->
Printf.sprintf " "
^
(match i with
| Label l -> Printf.sprintf "%s:" l | Label l -> Printf.sprintf "%s:" l
| Li (r, i) -> Printf.sprintf " li %s, %d" (fmt_reg r) i | Li (r, i) -> Printf.sprintf " li %s, %d" (fmt_reg r) i
| La (r, a) -> Printf.sprintf " la %s, %s" (fmt_reg r) (fmt_loc a) | La (r, a) -> Printf.sprintf " la %s, %s" (fmt_reg r) (fmt_loc a)
@ -136,7 +131,7 @@ let fmt_instr = function
| B l -> Printf.sprintf " b %s" l | B l -> Printf.sprintf " b %s" l
| Beqz (r, l) -> Printf.sprintf " beqz %s, %s" (fmt_reg r) l | Beqz (r, l) -> Printf.sprintf " beqz %s, %s" (fmt_reg r) l
| Jal l -> Printf.sprintf " jal %s" l | Jal l -> Printf.sprintf " jal %s" l
| Jr r -> Printf.sprintf "jr %s" (fmt_reg r)) | Jr r -> Printf.sprintf " jr %s" (fmt_reg r)
;; ;;
let fmt_dir = function let fmt_dir = function