PR#5300: verbose parameter should implicitly set classic display

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13000 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Clerc 2012-10-10 09:38:24 +00:00
parent 8e94d482d7
commit 78e80bc087
2 changed files with 2 additions and 1 deletions

View File

@ -40,6 +40,7 @@ OCaml 4.00.2:
Bug fixes:
- PR#5240: register exception printers for Unix.Unix_error and Dynlink.Error
- PR#5300: verbose parameter should implicitly set classic display
- PR#5772: problem with marshaling of mutually-recursive functions

View File

@ -141,7 +141,7 @@ let spec = ref (
"-vnum", Unit (fun () -> print_endline Sys.ocaml_version; raise Exit_OK),
" Display the version number";
"-quiet", Unit (fun () -> Log.level := 0), " Make as quiet as possible";
"-verbose", Int (fun i -> Log.level := i + 2), "<level> Set the verbosity level";
"-verbose", Int (fun i -> Log.classic_display := true; Log.level := i + 2), "<level> Set the verbosity level";
"-documentation", Set show_documentation, " Show rules and flags";
"-log", Set_string log_file_internal, "<file> Set log file";
"-no-log", Unit (fun () -> log_file_internal := ""), " No log file";