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 /cparser/Lexer.mll | |
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 'cparser/Lexer.mll')
-rw-r--r-- | cparser/Lexer.mll | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/cparser/Lexer.mll b/cparser/Lexer.mll index d3747e22..71aad604 100644 --- a/cparser/Lexer.mll +++ b/cparser/Lexer.mll @@ -126,16 +126,16 @@ let currentLoc = (* Error reporting *) let fatal_error lb fmt = - Cerrors.fatal_error ("%s:%d: Error:@ " ^^ fmt) - lb.lex_curr_p.pos_fname lb.lex_curr_p.pos_lnum + Cerrors.fatal_error + (lb.lex_curr_p.pos_fname,lb.lex_curr_p.pos_lnum) fmt let error lb fmt = - Cerrors.error ("%s:%d: Error:@ " ^^ fmt) - lb.lex_curr_p.pos_fname lb.lex_curr_p.pos_lnum + Cerrors.error + (lb.lex_curr_p.pos_fname,lb.lex_curr_p.pos_lnum) fmt let warning lb fmt = - Cerrors.warning ("%s:%d: Warning:@ " ^^ fmt) - lb.lex_curr_p.pos_fname lb.lex_curr_p.pos_lnum + Cerrors.warning + (lb.lex_curr_p.pos_fname,lb.lex_curr_p.pos_lnum) Cerrors.Unnamed ("warning: " ^^ fmt) (* Simple character escapes *) |