From 8a396074fa20a4e03ba7c107eb3f3a53685561e2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?L=C3=A9onard=20G=C3=A9rard?= Date: Fri, 10 Sep 2010 17:10:06 +0200 Subject: [PATCH] Allow compilation without mls_parsing etc. --- compiler/minils/main/mls_compiler.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/minils/main/mls_compiler.ml b/compiler/minils/main/mls_compiler.ml index 60ae7eb..14df782 100644 --- a/compiler/minils/main/mls_compiler.ml +++ b/compiler/minils/main/mls_compiler.ml @@ -11,7 +11,7 @@ open Location open Compiler_utils let pp p = if !verbose then Mls_printer.print stdout p - +(* let parse parsing_fun lexing_fun lexbuf = try parsing_fun lexing_fun lexbuf @@ -27,7 +27,7 @@ let parse parsing_fun lexing_fun lexbuf = 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