diff options
| author | mdenes | 2013-01-24 09:46:54 +0000 |
|---|---|---|
| committer | mdenes | 2013-01-24 09:46:54 +0000 |
| commit | 40385d05b9d921a871b87be92130af04acc49fe1 (patch) | |
| tree | 54e74fc14859003d364bbc6e649c8e7ce7ddaa9d | |
| parent | 9d1753b54f205f5c4b9489d8865aff877a4db6fa (diff) | |
Fixed parsing of -no-native-compiler flag.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16141 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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) |