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/adaint.c | |
| 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/adaint.c')
| -rw-r--r-- | gcc/ada/adaint.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index cc1dd99..bba176d 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -586,6 +586,18 @@ __gnat_get_file_names_case_sensitive (void) #endif } +/* Return nonzero if environment variables are case sensitive. */ + +int +__gnat_get_env_vars_case_sensitive (void) +{ +#if defined (VMS) || defined (WINNT) + return 0; +#else + return 1; +#endif +} + char __gnat_get_default_identifier_character_set (void) { |