From 0e35524dec6e62dfe35360f11eee7c7031c5ab2e Mon Sep 17 00:00:00 2001 From: Vincent Celier Date: Thu, 9 Sep 2010 10:24:43 +0000 Subject: adaint.c: New function __gnat_get_env_vars_case_sensitive... 2010-09-09 Vincent Celier * 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 --- gcc/ada/adaint.h | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gcc/ada/adaint.h') 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 *, -- cgit v1.1