diff options
author | Bernhard Schommer <bschommer@users.noreply.github.com> | 2016-09-20 16:17:27 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2016-09-20 16:17:27 +0200 |
commit | d857db508c318887463dde2039c9bfe99cdeebfa (patch) | |
tree | 8cf1d98876f4c72e624892103917be5286c95c17 /cfrontend/CPragmas.ml | |
parent | 99554c986d023d00192eb3d1fbfe1c0cc138596e (diff) | |
parent | 20f226ce463221032238895264c73d2207bf31d8 (diff) | |
download | compcert-d857db508c318887463dde2039c9bfe99cdeebfa.tar.gz compcert-d857db508c318887463dde2039c9bfe99cdeebfa.zip |
Merge pull request #139 from AbsInt/advanced-diagnostics
Advanced diagnostics
Diffstat (limited to 'cfrontend/CPragmas.ml')
-rw-r--r-- | cfrontend/CPragmas.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cfrontend/CPragmas.ml b/cfrontend/CPragmas.ml index 0c932170..2a199ff8 100644 --- a/cfrontend/CPragmas.ml +++ b/cfrontend/CPragmas.ml @@ -73,7 +73,7 @@ let process_pragma name = | "section" :: _ -> C2C.error "ill-formed `section' pragma"; true | "use_section" :: classname :: identlist -> - if identlist = [] then C2C.warning "vacuous `use_section' pragma"; + if identlist = [] then C2C.warning Cerrors.Unnamed "empty `use_section' pragma"; List.iter (process_use_section_pragma classname) identlist; true | "use_section" :: _ -> |