Message ID | 201110232217.15385.ebotcazou@adacore.com |
---|---|
State | New |
Headers | show |
Index: gcc-interface/decl.c =================================================================== --- gcc-interface/decl.c (revision 180235) +++ gcc-interface/decl.c (working copy) @@ -8976,7 +8976,7 @@ create_concat_name (Entity_Id gnat_entit if (suffix) { - String_Template temp = {1, strlen (suffix)}; + String_Template temp = {1, (int) strlen (suffix)}; Fat_Pointer fp = {suffix, &temp}; Get_External_Name_With_Suffix (gnat_entity, fp); }