diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-09-01 11:13:07 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-09-01 11:13:07 +0200 |
commit | dbc855fa4558d8a1b4abff4aadee0b79b814f186 (patch) | |
tree | bd5dd0ae728d0c195e071f43f24949dd99d1e6e7 | |
parent | a4bf0090177fa62a6a6bbce68a7bb6229204494d (diff) | |
download | compcert-dbc855fa4558d8a1b4abff4aadee0b79b814f186.tar.gz compcert-dbc855fa4558d8a1b4abff4aadee0b79b814f186.zip |
Readded parameter number. Bug 18004
-rw-r--r-- | cparser/Elab.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/cparser/Elab.ml b/cparser/Elab.ml index aa11ebf7..4e8adc77 100644 --- a/cparser/Elab.ml +++ b/cparser/Elab.ml @@ -1954,16 +1954,16 @@ let elab_expr vararg loc env a = if wrap2 valid_cast loc env ty_a ty_p then begin if wrap2 int_pointer_conversion loc env ty_a ty_p then warning Int_conversion - "incompatible integer-pointer conversion passing %a to parameter of type %a" - (print_typ env) ty_a (print_typ env) ty_p + "incompatible integer-pointer conversion passing %a to parameter %d of type %a" + (print_typ env) ty_a argno (print_typ env) ty_p else warning Unnamed - "incompatible conversion passing %a to parameter of type %a" - (print_typ env) ty_a (print_typ env) ty_p end + "incompatible conversion passing %a to parameter %d of type %a" + (print_typ env) ty_a argno (print_typ env) ty_p end else err - "passing %a to parameter of incompatible type %a" - (print_typ env) ty_a (print_typ env) ty_p + "passing %a to parameter %d of incompatible type %a" + (print_typ env) ty_a argno (print_typ env) ty_p end; let rest,env = elab_arguments (argno + 1) (argl,env) paraml vararg in arg1 :: rest,env |