Added static call

This commit is contained in:
Dmitry Boulytchev 2019-10-14 19:44:33 +03:00
parent 2bfebc93f8
commit e529ba1472
8 changed files with 134 additions and 70 deletions

View file

@ -43,7 +43,7 @@ let main =
if to_compile
then (
let basename = Filename.chop_suffix infile ".expr" in
(* ignore @@ X86.build prog basename *) (* TODO! *) ()
ignore @@ X86.build prog basename
)
else (
(* Printf.printf "Program:\n%s\n" (GT.show(Language.Expr.t) prog);*)