[Ada] Lib.Write: avoid use of System.Case_Util

2018-05-29  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* lib-writ.adb (Write_ALI): Do not use new function from s-casuti yet.
	This breaks build of cross compilers with older versions of GNAT, so
	better avoid it.

From-SVN: r260864

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 42f433e311ab586fa6640785b621da2a33b28a96..daa099e23ecffebf902a6eabd78b0ca0d2e22d34 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2018-05-29  Arnaud Charlet  <charlet@adacore.com>
+
+       * lib-writ.adb (Write_ALI): Do not use new function from s-casuti yet.
+       This breaks build of cross compilers with older versions of GNAT, so
+       better avoid it.
+
 2018-05-29  Doug Rupp  <rupp@adacore.com>
 
        * libgnarl/s-taprop.ads (Monotonic_Clock): Refine documentation to

diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb
index 9896a832554e4d82389fb89156c1a1b1cb6ac881..3598311354abe787ca938817bb1811a5bdad4fa8 100644 (file)
--- a/gcc/ada/lib-writ.adb
+++ b/gcc/ada/lib-writ.adb
@@ -1553,7 +1553,9 @@ package body Lib.Writ is
                --  case sensitive, the recorded file name is in lower case.
 
                if not File_Names_Case_Sensitive then
-                  Fname := Name_Find (To_Lower (Get_Name_String (Fname)));
+                  Get_Name_String (Fname);
+                  To_Lower (Name_Buffer (1 .. Name_Len));
+                  Fname := Name_Find;
                end if;
 
                Write_Info_Name_May_Be_Quoted (Fname);