diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2018-05-29 09:34:47 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-05-29 09:34:47 +0000 |
| commit | ccec48c0a45464128921b90701fc77868d7687a1 (patch) | |
| tree | 70b622c2aeaf4d44fa512ce6971bc5828d8b3b96 /gcc | |
| parent | eda45984f43b7cc37c792e5ee1fc4a30435d5715 (diff) | |
| download | gcc-ccec48c0a45464128921b90701fc77868d7687a1.zip gcc-ccec48c0a45464128921b90701fc77868d7687a1.tar.gz gcc-ccec48c0a45464128921b90701fc77868d7687a1.tar.bz2 | |
[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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/ada/lib-writ.adb | 4 |
2 files changed, 9 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 42f433e..daa099e 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 9896a83..3598311 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); |