diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/coqc.ml | 7 | ||||
| -rw-r--r-- | scripts/coqmktop.ml | 6 |
2 files changed, 9 insertions, 4 deletions
diff --git a/scripts/coqc.ml b/scripts/coqc.ml index ee7cf9da15..6959aad2da 100644 --- a/scripts/coqc.ml +++ b/scripts/coqc.ml @@ -148,9 +148,12 @@ let parse_args () = | [] -> usage () end | "-R" as o :: s :: t :: rem -> parse (cfiles,t::s::o::args) rem - | ("-notactics"|"-debug"|"-nolib"|"-batch"|"-nois" + + | ("-notactics"|"-debug"|"-db"|"-debugger"|"-nolib" + | "-debugVM"|"-alltransp"|"-VMno" + |"-batch"|"-nois" |"-q"|"-full"|"-profile"|"-just-parsing"|"-echo" |"-unsafe"|"-quiet" - |"-silent"|"-m"|"-xml"|"-v7"|"-v8"|"-translate"|"-strict-implicit" + |"-silent"|"-m"|"-xml"|"-v7"|"-v8"|"-translate" |"-strict-implicit" |"-dont-load-proofs"|"-impredicative-set" as o) :: rem -> parse (cfiles,o::args) rem | ("-v"|"--version") :: _ -> diff --git a/scripts/coqmktop.ml b/scripts/coqmktop.ml index 8a661d47c7..632c3ebd6e 100644 --- a/scripts/coqmktop.ml +++ b/scripts/coqmktop.ml @@ -66,8 +66,10 @@ let native_suffix f = (Filename.chop_suffix f ".cmo") ^ ".cmx" else if Filename.check_suffix f ".cma" then (Filename.chop_suffix f ".cma") ^ ".cmxa" - else - failwith ("File "^f^" has not extension .cmo or .cma") + else + if Filename.check_suffix f ".a" then f + else + failwith ("File "^f^" has not extension .cmo, .cma or .a") (* Transforms a file name in the corresponding Caml module name. *) let rem_ext_regexpr = Str.regexp "\\(.*\\)\\.\\(cm..?\\|ml\\)" |