Guest User

Untitled

a guest
Jun 4th, 2018
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
OCaml 0.16 KB | None | 0 0
  1. let compile imp = match imp with
  2.     ImpProg(d, c) ->
  3.         let rho = rho_list d in
  4.         let f = List.tl get_regs in
  5.         union' (t_com c rho f) (AsmProg(["End", AsmHalt]));;
Add Comment
Please, Sign In to add comment