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

* add neg

Browse source 
* change fmt_instr
This commit is contained in:
Mylloon 2022-12-08 19:54:17 +01:00
parent 9480a8aba2
commit af7799ea2c
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 25 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
mips.ml
View file

@ -44,6 +44,7 @@ type instr =
| Sb of reg * loc | Sb of reg * loc
| Lb of reg * loc | Lb of reg * loc
| Move of reg * reg | Move of reg * reg
| Neg of reg * reg
| Addi of reg * reg * int | Addi of reg * reg * int
| Add of reg * reg * reg | Add of reg * reg * reg
| Mul of reg * reg * reg | Mul of reg * reg * reg
@ -112,24 +113,30 @@ let fmt_loc = function
;; ;;
let fmt_instr = function let fmt_instr = function
| Label l -> Printf.sprintf "%s:" l | Label _ -> ""
| Li (r, i) -> Printf.sprintf " li %s, %d" (fmt_reg r) i | _ as i ->
| La (r, a) -> Printf.sprintf " la %s, %s" (fmt_reg r) (fmt_loc a) Printf.sprintf " "
| Sw (r, a) -> Printf.sprintf " sw %s, %s" (fmt_reg r) (fmt_loc a) ^
| Lw (r, a) -> Printf.sprintf " lw %s, %s" (fmt_reg r) (fmt_loc a) (match i with
| Sb (r, a) -> Printf.sprintf " sb %s, %s" (fmt_reg r) (fmt_loc a) | Label l -> Printf.sprintf "%s:" l
| Lb (r, a) -> Printf.sprintf " lb %s, %s" (fmt_reg r) (fmt_loc a) | Li (r, i) -> Printf.sprintf "li %s, %d" (fmt_reg r) i
| Move (rd, rs) -> Printf.sprintf " move %s, %s" (fmt_reg rd) (fmt_reg rs) | La (r, a) -> Printf.sprintf "la %s, %s" (fmt_reg r) (fmt_loc a)
| Addi (rd, rs, i) -> Printf.sprintf " addi %s, %s, %d" (fmt_reg rd) (fmt_reg rs) i | Sw (r, a) -> Printf.sprintf "sw %s, %s" (fmt_reg r) (fmt_loc a)
| Add (rd, rs, rt) -> | Lw (r, a) -> Printf.sprintf "lw %s, %s" (fmt_reg r) (fmt_loc a)
Printf.sprintf " add %s, %s, %s" (fmt_reg rd) (fmt_reg rs) (fmt_reg rt) | Sb (r, a) -> Printf.sprintf "sb %s, %s" (fmt_reg r) (fmt_loc a)
| Mul (rd, rs, rt) -> | Lb (r, a) -> Printf.sprintf "lb %s, %s" (fmt_reg r) (fmt_loc a)
Printf.sprintf " mul %s, %s, %s" (fmt_reg rd) (fmt_reg rs) (fmt_reg rt) | Move (rd, rs) -> Printf.sprintf "move %s, %s" (fmt_reg rd) (fmt_reg rs)
| Syscall -> Printf.sprintf " syscall" | Neg (r, a) -> Printf.sprintf "neg %s, %s" (fmt_reg r) (fmt_reg a)
| B l -> Printf.sprintf " b %s" l | Addi (rd, rs, i) -> Printf.sprintf "addi %s, %s, %d" (fmt_reg rd) (fmt_reg rs) i
| Beqz (r, l) -> Printf.sprintf " beqz %s, %s" (fmt_reg r) l | Add (rd, rs, rt) ->
| Jal l -> Printf.sprintf " jal %s" l Printf.sprintf "add %s, %s, %s" (fmt_reg rd) (fmt_reg rs) (fmt_reg rt)
| Jr r -> Printf.sprintf " jr %s" (fmt_reg r) | Mul (rd, rs, rt) ->
Printf.sprintf "mul %s, %s, %s" (fmt_reg rd) (fmt_reg rs) (fmt_reg rt)
| Syscall -> Printf.sprintf "syscall"
| B l -> Printf.sprintf "b %s" l
| Beqz (r, l) -> Printf.sprintf "beqz %s, %s" (fmt_reg r) l
| Jal l -> Printf.sprintf "jal %s" l
| Jr r -> Printf.sprintf "jr %s" (fmt_reg r))
;; ;;
let fmt_dir = function let fmt_dir = function