Housekeeping work in gigi

gcc/ada/ChangeLog:
	* gcc-interface/Make-lang.in: Remove ^L characters.
	* gcc-interface/decl.c (create_concat_name): Add cast.

diff --git a/gcc/ada/gcc-interface/Make-lang.in b/gcc/ada/gcc-interface/Make-lang.in
index 89b57505d2158a7bc40efcde9d855660b1fc6968..d88c354c9a42232c55acc915c2b4059773d38e09 100644 (file)
--- a/gcc/ada/gcc-interface/Make-lang.in
+++ b/gcc/ada/gcc-interface/Make-lang.in
@@ -42,7 +42,7 @@ MV = mv
 MKDIR = mkdir -p
 RM = rm -f
 RMDIR = rm -rf
-\f
+
 
 # Extra flags to pass to recursive makes.
 COMMON_ADAFLAGS= -gnatpg
@@ -814,7 +814,6 @@ doc/gnat_rm.pdf: ada/gnat_rm.texi $(gcc_docdir)/include/fdl.texi    \
 doc/gnat-style.pdf: ada/gnat-style.texi $(gcc_docdir)/include/fdl.texi
        $(TEXI2PDF) -c -I $(abs_docdir)/include -o $@ $<
 
-\f
 # Install hooks:
 # gnat1 is installed elsewhere as part of $(COMPILERS).
 
@@ -908,7 +907,7 @@ ada.maintainer-clean:
        -$(RM) ada/nmake.ads
        -$(RM) ada/treeprs.ads
        -$(RM) ada/snames.ads ada/snames.adb ada/snames.h
-\f
+
 # Stage hooks:
 # The main makefile has already created stage?/ada
 
@@ -1005,7 +1004,7 @@ $(check_acats_targets): check-acats%:
        touch $$GCC_RUNTEST_PARALLELIZE_DIR/finished
 
 .PHONY: check-acats $(check_acats_targets)
-\f
+
 # Compiling object files from source files.
 
 # Ada language specific files.

diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index 7caca6a6fb2cf1ae2273a00f6f6c2cb30b4aaf2a..5ea1b16af67c99e34a89c3f93880b890c23d624c 100644 (file)
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -10353,7 +10353,7 @@ create_concat_name (Entity_Id gnat_entity, const char *suffix)
 {
   const Entity_Kind kind = Ekind (gnat_entity);
   const bool has_suffix = (suffix != NULL);
-  String_Template temp = {1, has_suffix ? strlen (suffix) : 0};
+  String_Template temp = {1, has_suffix ? (int) strlen (suffix) : 0};
   String_Pointer sp = {suffix, &temp};
 
   Get_External_Name (gnat_entity, has_suffix, sp);