From ccec48c0a45464128921b90701fc77868d7687a1 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 29 May 2018 09:34:47 +0000 Subject: [PATCH] [Ada] Lib.Write: avoid use of System.Case_Util 2018-05-29 Arnaud Charlet 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 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/lib-writ.adb | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * 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 * 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); -- 2.30.2