diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-08-08 10:37:53 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-08-08 10:37:53 +0200 |
commit | 8228d4f959c2211d1840928d1cfc349ce2820200 (patch) | |
tree | 01e9da05ca158ea53b447c67983058a25eb88d0d /cparser/Elab.ml | |
parent | b184e05aada74f34dafd9d1bf6bc24e68ab76e05 (diff) | |
download | compcert-8228d4f959c2211d1840928d1cfc349ce2820200.tar.gz compcert-8228d4f959c2211d1840928d1cfc349ce2820200.zip |
Added error check before transformations.
Added a check for errors after the elab phases to avoid problems
in the transformations due to broken input programs.
Bug 19504
Diffstat (limited to 'cparser/Elab.ml')
-rw-r--r-- | cparser/Elab.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cparser/Elab.ml b/cparser/Elab.ml index 67b23d91..76f8efdb 100644 --- a/cparser/Elab.ml +++ b/cparser/Elab.ml @@ -2361,7 +2361,7 @@ let rec elab_stmt env ctx s = instead of the expected type@ %a" Cprint.typ b.etyp Cprint.typ ctx.ctx_return_typ else - fatal_error loc + error loc "return value has type@ %a@ \ instead of the expected type@ %a" Cprint.typ b.etyp Cprint.typ ctx.ctx_return_typ |