diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-07-29 09:15:36 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-07-29 09:15:36 +0200 |
| commit | 21156a2fcf48764762c7f2209fa850024378d83a (patch) | |
| tree | e56bb6ee6b8099b3520c4e97ccd1cd776ff9eb7a /cparser/Env.ml | |
| parent | c7832c32253cdc2123313731c7cbbace4fc8332c (diff) | |
| download | compcert-kvx-21156a2fcf48764762c7f2209fa850024378d83a.tar.gz compcert-kvx-21156a2fcf48764762c7f2209fa850024378d83a.zip | |
Classified all warnings and added various options.
Now each warning either has a name and can be turned on/off, made
into an error,etc. or is a warning that always will be triggered.
The message of the warnings are similar to the ones emited by
gcc/clang and all fit into one line.
Furthermore the diagnostics are now colored if colored output is
available.
Bug 18004
Diffstat (limited to 'cparser/Env.ml')
| -rw-r--r-- | cparser/Env.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/cparser/Env.ml b/cparser/Env.ml index dae79ef2..cbfafd48 100644 --- a/cparser/Env.ml +++ b/cparser/Env.ml @@ -260,17 +260,17 @@ let composite_tag_name name = let error_message = function | Unbound_identifier name -> - sprintf "Unbound identifier '%s'" name + sprintf "use of undeclared identifier '%s'" name | Unbound_tag(name, kind) -> - sprintf "Unbound %s '%s'" kind (composite_tag_name name) + sprintf "unbound %s '%s'" kind (composite_tag_name name) | Tag_mismatch(name, expected, actual) -> sprintf "'%s' was declared as a %s but is used as a %s" (composite_tag_name name) actual expected | Unbound_typedef name -> - sprintf "Unbound typedef '%s'" name + sprintf "unbound typedef '%s'" name | No_member(compname, compkind, memname) -> - sprintf "%s '%s' has no member named '%s'" - compkind (composite_tag_name compname) memname + sprintf "no member named '%s' in '%s %s'" + memname compkind (composite_tag_name compname) let _ = Printexc.register_printer |