diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2011-10-23 20:21:06 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2011-10-23 20:21:06 +0000 |
| commit | be98aaf0bccea7960914007a08ca822713f5c60d (patch) | |
| tree | 7ad226ef2ddb2edaa6b67b24a4b65436e53d1680 | |
| parent | 0d459eaed8636dd6358b66eaa0fd2d8d4902b3c0 (diff) | |
| download | gcc-be98aaf0bccea7960914007a08ca822713f5c60d.zip gcc-be98aaf0bccea7960914007a08ca822713f5c60d.tar.gz gcc-be98aaf0bccea7960914007a08ca822713f5c60d.tar.bz2 | |
* gcc-interface/decl.c (create_concat_name): Add explicit cast.
From-SVN: r180347
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 24d909d..5fa725d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2011-10-23 Eric Botcazou <ebotcazou@adacore.com> + + * gcc-interface/decl.c (create_concat_name): Add explicit cast. + 2011-10-20 Eric Botcazou <ebotcazou@adacore.com> * 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 81f891f..71a4639 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); } |