diff options
| author | Vincent Celier <celier@adacore.com> | 2010-09-09 10:24:43 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-09-09 12:24:43 +0200 |
| commit | 0e35524dec6e62dfe35360f11eee7c7031c5ab2e (patch) | |
| tree | 5854c37f793c47152017e57fd9a3f7d8ff206d5c /gcc/ada/prj-ext.adb | |
| parent | 099ace5e09a8e7c350cf3c1d0e223db247552eeb (diff) | |
| download | gcc-0e35524dec6e62dfe35360f11eee7c7031c5ab2e.zip gcc-0e35524dec6e62dfe35360f11eee7c7031c5ab2e.tar.gz gcc-0e35524dec6e62dfe35360f11eee7c7031c5ab2e.tar.bz2 | |
adaint.c: New function __gnat_get_env_vars_case_sensitive...
2010-09-09 Vincent Celier <celier@adacore.com>
* adaint.c: New function __gnat_get_env_vars_case_sensitive, returns 0
for VMS and Windows, and 1 for all other platforms.
* adaint.h: New function __gnat_get_env_vars_case_sensitive
* osint.ads, osint.adb (Canonical_Case_Env_Var_Name): New procedure.
* prj-ext.adb (Add): Call Canonical_Case_Env_Var_Name instead of
Canonical_Case_File_Name, as we are dealing with environment variables,
not files.
From-SVN: r164069
Diffstat (limited to 'gcc/ada/prj-ext.adb')
| -rw-r--r-- | gcc/ada/prj-ext.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/prj-ext.adb b/gcc/ada/prj-ext.adb index 51da2a3..d867353 100644 --- a/gcc/ada/prj-ext.adb +++ b/gcc/ada/prj-ext.adb @@ -60,7 +60,7 @@ package body Prj.Ext is The_Value := Name_Find; Name_Len := External_Name'Length; Name_Buffer (1 .. Name_Len) := External_Name; - Canonical_Case_File_Name (Name_Buffer (1 .. Name_Len)); + Canonical_Case_Env_Var_Name (Name_Buffer (1 .. Name_Len)); The_Key := Name_Find; Name_To_Name_HTable.Set (Tree.External_References, The_Key, The_Value); end Add; @@ -327,7 +327,7 @@ package body Prj.Ext is Name : String := Get_Name_String (External_Name); begin - Canonical_Case_File_Name (Name); + Canonical_Case_Env_Var_Name (Name); Name_Len := Name'Length; Name_Buffer (1 .. Name_Len) := Name; The_Value := |