From be98aaf0bccea7960914007a08ca822713f5c60d Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sun, 23 Oct 2011 20:21:06 +0000 Subject: [PATCH] * gcc-interface/decl.c (create_concat_name): Add explicit cast. From-SVN: r180347 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/gcc-interface/decl.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 24d909d6521..5fa725d3cdf 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2011-10-23 Eric Botcazou + + * gcc-interface/decl.c (create_concat_name): Add explicit cast. + 2011-10-20 Eric Botcazou * gcc-interface/Make-lang.in (GNATLIBFLAGS, GNATLIBCFLAGS, THREAD_KIND, diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 81f891fee63..71a4639fa30 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -8976,7 +8976,7 @@ create_concat_name (Entity_Id gnat_entity, const char *suffix) 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); }