diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 1998-11-05 18:53:15 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 1998-11-05 18:53:15 +0000 |
| commit | 52f3ee8f89af37c4f0a351f27ed8de6fc4cea576 (patch) | |
| tree | 42d99bcf8c61d2f65f96d5a7a5a572aa4a7fde24 /driver | |
| parent | 9101f79a3f7dba0600c901cdc5f9caf97f0c5d3e (diff) | |
| download | ocaml-52f3ee8f89af37c4f0a351f27ed8de6fc4cea576.tar.gz | |
problemes cosmetiques
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2154 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'driver')
| -rw-r--r-- | driver/main_args.ml | 5 | ||||
| -rw-r--r-- | driver/optmain.ml | 5 |
2 files changed, 6 insertions, 4 deletions
diff --git a/driver/main_args.ml b/driver/main_args.ml index 35bc65e64c..cb142b883b 100644 --- a/driver/main_args.ml +++ b/driver/main_args.ml @@ -78,7 +78,8 @@ struct "-use_runtime", Arg.String F._use_runtime, "<path> same as -use-runtime"; "-v", Arg.Unit F._v, " Print compiler version number"; "-verbose", Arg.Unit F._verbose, " Print calls to external commands"; - "-w", Arg.String F._w, "<flags> Enable warnings according to <flags>:\n\ + "-w", Arg.String F._w, + "<flags> Enable or disable warnings according to <flags>:\n\ \032 A/a enable/disable all warnings\n\ \032 F/f enable/disable partially applied function\n\ \032 M/m enable/disable overriden methods\n\ @@ -87,7 +88,7 @@ struct \032 U/u enable/disable unused match case\n\ \032 V/v enable/disable hidden instance variables\n\ \032 X/x enable/disable all other warnings\n\ - \032 default setting is A"; + \032 default setting is A (all warnings enabled)"; "-nopervasives", Arg.Unit F._nopervasives, " (undocumented)"; "-drawlambda", Arg.Unit F._drawlambda, " (undocumented)"; diff --git a/driver/optmain.ml b/driver/optmain.ml index fc0442b8cb..f2f11d6194 100644 --- a/driver/optmain.ml +++ b/driver/optmain.ml @@ -96,7 +96,8 @@ let main () = " No bounds checking on array and string access"; "-v", Arg.Unit print_version_number, " Print compiler version number"; "-verbose", Arg.Set verbose, " Print calls to external commands"; - "-w", Arg.String F._w, "<flags> Enable warnings according to <flags>:\n\ + "-w", Arg.String Warnings.parse_options, + "<flags> Enable or disable warnings according to <flags>:\n\ \032 A/a enable/disable all warnings\n\ \032 F/f enable/disable partially applied function\n\ \032 M/m enable/disable overriden methods\n\ @@ -105,7 +106,7 @@ let main () = \032 U/u enable/disable unused match case\n\ \032 V/v enable/disable hidden instance variables\n\ \032 X/x enable/disable all other warnings\n\ - \032 default setting is A"; + \032 default setting is A (all warnings enabled)"; "-nopervasives", Arg.Set nopervasives, " (undocumented)"; "-drawlambda", Arg.Set dump_rawlambda, " (undocumented)"; |