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

add multiplication support

Browse source
This commit is contained in:
Mylloon 2022-12-09 16:12:32 +01:00
parent cf14c64adc
commit c98231152a
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
5 changed files with 18 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
baselib.ml
View file

@ -2,11 +2,19 @@ open Ast
open Mips
module Env = Map.Make (String)
let _types_ = Env.of_seq (List.to_seq [ "%add", Func_t (Int_t, [ Int_t; Int_t ]) ])
let _types_ =
Env.of_seq
(List.to_seq
[ "%add", Func_t (Int_t, [ Int_t; Int_t ])
; "%mul", Func_t (Int_t, [ Int_t; Int_t ])
])
;;
let builtins =
List.fold_left
(fun env (fn, impl) -> Env.add fn impl env)
Env.empty
[ "%add", [ Lw (T0, Mem (SP, 0)); Lw (T1, Mem (SP, 4)); Add (V0, T0, T1) ] ]
[ "%add", [ Lw (T0, Mem (SP, 0)); Lw (T1, Mem (SP, 4)); Add (V0, T0, T1) ]
; "%mul", [ Lw (T0, Mem (SP, 0)); Lw (T1, Mem (SP, 4)); Mul (V0, T0, T1) ]
]
;;

1
lexer.mll
View file

@ -22,6 +22,7 @@ rule token = parse
| '=' { Lassign }
| ';' { Lsc }
| '+' { Ladd }
| '*' { Lmul }
| ident as i { Lvar i }
| '#' { comment lexbuf }
| _ as c { raise (Error c) }

7
parser.mly
View file

@ -8,9 +8,9 @@
%token <Ast.type_t> Ltype
%token <string> Lvar
%token Lend Lassign Lsc Lreturn
%token Ladd
%token Ladd Lmul
%left Ladd
%left Ladd Lmul
%start prog
@ -49,4 +49,7 @@ expr:
| a = expr ; Ladd ; b = expr {
Call { func = "%add" ; args = [ a ; b ] ; pos = $startpos($2) }
}
| a = expr ; Lmul ; b = expr {
Call { func = "%mul" ; args = [ a ; b ] ; pos = $startpos($2) }
}
;

1
tests/10_add-mul.test Normal file
View file

@ -0,0 +1 @@
int res = 13 * 100 + 12;

1
tests/10_add.test
View file

@ -1 +0,0 @@
int res = 1 + 1;