This commit is contained in:
Dmitry Boulytchev 2018-12-03 14:20:47 +03:00
parent 23eb95ae33
commit ea4753556e
2 changed files with 2 additions and 2 deletions

View file

@ -4,7 +4,7 @@ let parse infile =
let s = Util.read infile in let s = Util.read infile in
Util.parse Util.parse
(object (object
inherit Matcher.stream s inherit Matcher.t s
inherit Util.Lexers.decimal s inherit Util.Lexers.decimal s
inherit Util.Lexers.string s inherit Util.Lexers.string s
inherit Util.Lexers.char s inherit Util.Lexers.char s

View file

@ -103,7 +103,7 @@ open SM
of x86 instructions of x86 instructions
*) *)
let compile env code = let compile env code =
SM.print_prg code; (*SM.print_prg code;*)
flush stdout; flush stdout;
let suffix = function let suffix = function
| "<" -> "l" | "<" -> "l"