diff options
| author | Brian Campbell | 2017-08-10 16:53:01 +0100 |
|---|---|---|
| committer | Brian Campbell | 2017-08-10 16:53:01 +0100 |
| commit | 5c01bf4c78860b1173b156f99d03f115d08e2175 (patch) | |
| tree | a6149f41ecead71254e8f76ac5caa200be18858f /src/sail.ml | |
| parent | 3d574f2dfe688d762976f30661d46f806227ba22 (diff) | |
| parent | 128c1965e58d1527c0619d777b5770ec5825ae22 (diff) | |
Merge branch 'experiments' into mono-experiments
Diffstat (limited to 'src/sail.ml')
| -rw-r--r-- | src/sail.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/sail.ml b/src/sail.ml index c7c14a67..d03060dc 100644 --- a/src/sail.ml +++ b/src/sail.ml @@ -88,11 +88,11 @@ let options = Arg.align ([ | [fname;line;var] -> opt_mono_split := ((fname,int_of_string line),var)::!opt_mono_split | _ -> raise (Arg.Bad (s ^ " not of form <filename>:<line>:<variable>"))), "<filename>:<line>:<variable> to case split for monomorphisation"); - ( "-new_typecheck", - Arg.Set opt_new_typecheck, - " (experimental) use new typechecker with Z3 constraint solving"); + ( "-new_parser", + Arg.Set Process_file.opt_new_parser, + " (experimental) use new parser"); ( "-just_check", - Arg.Tuple [Arg.Set opt_new_typecheck; Arg.Set opt_just_check], + Arg.Set opt_just_check, " (experimental) terminate immediately after typechecking, implies -new_typecheck"); ( "-ddump_tc_ast", Arg.Set opt_ddump_tc_ast, |