diff options
| author | Vincent Celier <celier@adacore.com> | 2005-09-05 09:55:17 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-09-05 09:55:17 +0200 |
| commit | 8e4fe95d949971f4a1afc5072da5a80f4b28b2f0 (patch) | |
| tree | 3f0710d3ca77645413376d033bb10ef18ca57624 | |
| parent | 244480db09260422e323000b8106bfbf951762ce (diff) | |
| download | gcc-8e4fe95d949971f4a1afc5072da5a80f4b28b2f0.zip gcc-8e4fe95d949971f4a1afc5072da5a80f4b28b2f0.tar.gz gcc-8e4fe95d949971f4a1afc5072da5a80f4b28b2f0.tar.bz2 | |
lib-writ.adb: Update Copyright notice
2005-09-01 Vincent Celier <celier@adacore.com>
* lib-writ.adb: Update Copyright notice
(Write_With_Lines): On platforms where file names are case-insensitive,
record the file names in lower case.
(Write_ALI): For D lines, on platforms where file names are
case-insensitive, record the file names in lower case.
From-SVN: r103870
| -rw-r--r-- | gcc/ada/lib-writ.adb | 46 |
1 files changed, 37 insertions, 9 deletions
diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index dfc5449..76952b5 100644 --- a/gcc/ada/lib-writ.adb +++ b/gcc/ada/lib-writ.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2005 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -49,7 +49,8 @@ with Stringt; use Stringt; with Tbuild; use Tbuild; with Uname; use Uname; -with System.WCh_Con; use System.WCh_Con; +with System.Case_Util; use System.Case_Util; +with System.WCh_Con; use System.WCh_Con; package body Lib.Writ is @@ -684,11 +685,29 @@ package body Lib.Writ is or else (Ada_Version = Ada_83 and then Full_Source_Name (Body_Fname) /= No_File) then + -- Ensure that on platforms where the file names are not + -- case sensitive, the recorded file name is in lower case. + + if not File_Names_Case_Sensitive then + Get_Name_String (Body_Fname); + To_Lower (Name_Buffer (1 .. Name_Len)); + Body_Fname := Name_Find; + end if; + Write_Info_Name (Body_Fname); Write_Info_Tab (49); Write_Info_Name (Lib_File_Name (Body_Fname, Body_Index)); else + -- Ensure that on platforms where the file names are not + -- case sensitive, the recorded file name is in lower case. + + if not File_Names_Case_Sensitive then + Get_Name_String (Fname); + To_Lower (Name_Buffer (1 .. Name_Len)); + Fname := Name_Find; + end if; + Write_Info_Name (Fname); Write_Info_Tab (49); Write_Info_Name @@ -830,7 +849,7 @@ package body Lib.Writ is Nam : Node_Id := Defining_Unit_Name (S); begin - -- If it is a child unit, get its simple name. + -- If it is a child unit, get its simple name if Nkind (Nam) = N_Defining_Program_Unit_Name then Nam := Defining_Identifier (Nam); @@ -922,11 +941,7 @@ package body Lib.Writ is Write_Info_Str (" UA"); end if; - if Exception_Mechanism /= Front_End_Setjmp_Longjmp_Exceptions then - if Unit_Exception_Table_Present then - Write_Info_Str (" UX"); - end if; - + if Exception_Mechanism = Back_End_Exceptions then Write_Info_Str (" ZX"); end if; @@ -1059,6 +1074,8 @@ package body Lib.Writ is Sind : Source_File_Index; -- Index of corresponding source file + Fname : File_Name_Type; + begin for J in 1 .. Num_Sdep loop Unum := Sdep_Table (J); @@ -1071,7 +1088,18 @@ package body Lib.Writ is -- Normal case of a unit entry with a source index if Sind /= No_Source_File then - Write_Info_Name (File_Name (Sind)); + Fname := File_Name (Sind); + + -- Ensure that on platforms where the file names are not + -- case sensitive, the recorded file name is in lower case. + + if not File_Names_Case_Sensitive then + Get_Name_String (Fname); + To_Lower (Name_Buffer (1 .. Name_Len)); + Fname := Name_Find; + end if; + + Write_Info_Name (Fname); Write_Info_Tab (25); Write_Info_Str (String (Time_Stamp (Sind))); Write_Info_Char (' '); |