From: Arnaud Charlet <charlet@adacore.com>
Date: Tue, 29 May 2018 09:34:47 +0000 (+0000)
Subject: [Ada] Lib.Write: avoid use of System.Case_Util
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ccec48c0a45464128921b90701fc77868d7687a1;p=gcc.git

[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 42f433e311a..daa099e23ec 100644
--- 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 9896a832554..3598311354a 100644
--- 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);