Functions in X86

This commit is contained in:
Dmitry Boulytchev 2018-04-11 00:47:46 +03:00
parent 8907ab2119
commit b19bea4d58
13 changed files with 126 additions and 67 deletions

View file

@ -25,11 +25,9 @@ let main =
match parse infile with
| `Ok prog ->
if to_compile
then failwith "Not implemented yet"
(*
then
let basename = Filename.chop_suffix infile ".expr" in
ignore @@ X86.build prog basename
*)
ignore @@ X86.build prog basename
else
let rec read acc =
try