Allow compilation without mls_parsing etc.
This commit is contained in:
parent
44e7a84c00
commit
8a396074fa
|
@ -11,7 +11,7 @@ open Location
|
||||||
open Compiler_utils
|
open Compiler_utils
|
||||||
|
|
||||||
let pp p = if !verbose then Mls_printer.print stdout p
|
let pp p = if !verbose then Mls_printer.print stdout p
|
||||||
|
(*
|
||||||
let parse parsing_fun lexing_fun lexbuf =
|
let parse parsing_fun lexing_fun lexbuf =
|
||||||
try
|
try
|
||||||
parsing_fun lexing_fun lexbuf
|
parsing_fun lexing_fun lexbuf
|
||||||
|
@ -27,7 +27,7 @@ let parse parsing_fun lexing_fun lexbuf =
|
||||||
let parse_implementation prog_name lexbuf =
|
let parse_implementation prog_name lexbuf =
|
||||||
let p = parse Mls_parser.program Mls_lexer.token lexbuf in
|
let p = parse Mls_parser.program Mls_lexer.token lexbuf in
|
||||||
{ p with Mls_parsetree.p_modname = prog_name }
|
{ p with Mls_parsetree.p_modname = prog_name }
|
||||||
|
*)
|
||||||
let compile pp p =
|
let compile pp p =
|
||||||
(* Clocking *)
|
(* Clocking *)
|
||||||
let p = pass "Clocking" true Clocking.program p pp in
|
let p = pass "Clocking" true Clocking.program p pp in
|
||||||
|
|
Loading…
Reference in a new issue