diff options
| -rw-r--r-- | scripts/coqc.ml | 2 | ||||
| -rw-r--r-- | toplevel/coqtop.ml | 5 |
2 files changed, 6 insertions, 1 deletions
diff --git a/scripts/coqc.ml b/scripts/coqc.ml index efff8dbc61..4110411060 100644 --- a/scripts/coqc.ml +++ b/scripts/coqc.ml @@ -144,7 +144,7 @@ let parse_args () = |"-q"|"-full"|"-profile"|"-just-parsing"|"-echo" |"-unsafe"|"-quiet" |"-silent"|"-m"|"-xml"|"-v7"|"-v8"|"-beautify"|"-strict-implicit" |"-dont-load-proofs"|"-load-proofs"|"-force-load-proofs" - |"-impredicative-set"|"-vm" as o) :: rem -> + |"-impredicative-set"|"-vm"|"-no-native-compiler" as o) :: rem -> parse (cfiles,o::args) rem | ("-where") :: _ -> diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 064a42cc8b..6e3cc11179 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -253,6 +253,9 @@ let parse_args arglist = | "-require" :: f :: rem -> add_require f; parse rem | "-require" :: [] -> usage () + | "-print-mod-uid" :: f :: rem -> Flags.print_mod_uid := true; + add_require f; parse rem + | "-compile" :: f :: rem -> add_compile false f; if not !glob_opt then Dumpglob.dump_to_dotglob (); parse rem | "-compile" :: [] -> usage () @@ -334,6 +337,8 @@ let parse_args arglist = | "-color" :: rem -> Flags.make_term_color true; parse rem + | "-no-native-compiler" :: rem -> no_native_compiler := true; parse rem + | s :: rem -> if !filter_opts then s :: (parse rem) |