--- a/gnat/osint.ads 2010-06-08 19:33:24.000000000 +0400 +++ b/gnat/osint.ads 2011-02-05 00:48:30.236428001 +0300 @@ -94,11 +94,11 @@ -- this call converts the given string to canonical all lower case form, -- so that two file names compare equal if they refer to the same file. - function Get_Env_Vars_Case_Sensitive return Int; - pragma Import (C, Get_Env_Vars_Case_Sensitive, - "__gnat_get_env_vars_case_sensitive"); - Env_Vars_Case_Sensitive : constant Boolean := - Get_Env_Vars_Case_Sensitive /= 0; + -- function Get_Env_Vars_Case_Sensitive return Int; + --pragma Import (C, Get_Env_Vars_Case_Sensitive, + -- "__gnat_get_env_vars_case_sensitive"); + Env_Vars_Case_Sensitive : constant Boolean := True ; + -- Get_Env_Vars_Case_Sensitive /= 0; -- Set to indicate whether the operating system convention is for -- environment variable names to be case sensitive (e.g., in Unix, set -- True), or non case sensitive (e.g., in Windows, set False).