From dbc855fa4558d8a1b4abff4aadee0b79b814f186 Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Thu, 1 Sep 2016 11:13:07 +0200 Subject: Readded parameter number. Bug 18004 --- cparser/Elab.ml | 12 ++++++------ 1 file 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 -- cgit