|
|
|
@ -12,23 +12,7 @@ open Compiler_utils
|
|
|
|
|
open Compiler_options
|
|
|
|
|
|
|
|
|
|
let pp p = if !verbose then Mls_printer.print stdout p
|
|
|
|
|
(*
|
|
|
|
|
let parse parsing_fun lexing_fun lexbuf =
|
|
|
|
|
try
|
|
|
|
|
parsing_fun lexing_fun lexbuf
|
|
|
|
|
with
|
|
|
|
|
| Mls_lexer.Lexical_error(err, loc) ->
|
|
|
|
|
lexical_error err loc
|
|
|
|
|
| Mls_parser.Error ->
|
|
|
|
|
let pos1 = Lexing.lexeme_start_p lexbuf
|
|
|
|
|
and pos2 = Lexing.lexeme_end_p lexbuf in
|
|
|
|
|
let l = Loc(pos1,pos2) in
|
|
|
|
|
syntax_error l
|
|
|
|
|
|
|
|
|
|
let parse_implementation prog_name lexbuf =
|
|
|
|
|
let p = parse Mls_parser.program Mls_lexer.token lexbuf in
|
|
|
|
|
{ p with Mls_parsetree.p_modname = prog_name }
|
|
|
|
|
*)
|
|
|
|
|
|
|
|
|
|
let compile pp p =
|
|
|
|
|
(* Clocking *)
|
|
|
|
|
let p = pass "Clocking" true Clocking.program p pp in
|
|
|
|
|