20 lines
470 B
OCaml
20 lines
470 B
OCaml
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 ])
|
|
; "%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) ]
|
|
; "%mul", [ Lw (T0, Mem (SP, 0)); Lw (T1, Mem (SP, 4)); Mul (V0, T0, T1) ]
|
|
]
|
|
;;
|