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.h | |
| 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.h')
| -rw-r--r-- | gcc/ada/adaint.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/adaint.h b/gcc/ada/adaint.h index 7af079e..a43f9b2 100644 --- a/gcc/ada/adaint.h +++ b/gcc/ada/adaint.h @@ -6,7 +6,7 @@ * * * C Header File * * * - * Copyright (C) 1992-2009, Free Software Foundation, Inc. * + * Copyright (C) 1992-2010, 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- * @@ -101,6 +101,7 @@ extern void __gnat_to_gm_time (OS_Time *, int *, int *, extern int __gnat_get_maximum_file_name_length (void); extern int __gnat_get_switches_case_sensitive (void); extern int __gnat_get_file_names_case_sensitive (void); +extern int __gnat_get_env_vars_case_sensitive (void); extern char __gnat_get_default_identifier_character_set (void); extern void __gnat_get_current_dir (char *, int *); extern void __gnat_get_object_suffix_ptr (int *, |