prj.adb (Get_Object_Directory): Return object directory display name
2010-09-09 Vincent Celier <celier@adacore.com> * prj.adb (Get_Object_Directory): Return object directory display name * adaint.c (__gnat_get_file_names_case_sensitive): When environment variable GNAT_FILE_NAME_CASE_SENSITIVE has a value of "0" or "1", return this value, otherwise return the default for the platform. From-SVN: r164086
This commit is contained in:
parent
cb1a6faeef
commit
616191687c
|
@ -1,3 +1,10 @@
|
|||
2010-09-09 Vincent Celier <celier@adacore.com>
|
||||
|
||||
* prj.adb (Get_Object_Directory): Return object directory display name
|
||||
* adaint.c (__gnat_get_file_names_case_sensitive): When environment
|
||||
variable GNAT_FILE_NAME_CASE_SENSITIVE has a value of "0" or "1",
|
||||
return this value, otherwise return the default for the platform.
|
||||
|
||||
2010-09-09 Arnaud Charlet <charlet@adacore.com>
|
||||
|
||||
* gcc-interface/Makefile.in, gcc-interface/Make-lang.in: Update
|
||||
|
|
|
@ -579,10 +579,17 @@ __gnat_get_maximum_file_name_length (void)
|
|||
int
|
||||
__gnat_get_file_names_case_sensitive (void)
|
||||
{
|
||||
const char *sensitive = getenv ("GNAT_FILE_NAME_CASE_SENSITIVE");
|
||||
|
||||
if (sensitive != NULL
|
||||
&& (sensitive[0] == '0' || sensitive[0] == '1')
|
||||
&& sensitive[1] == '\0')
|
||||
return sensitive[0] - '0';
|
||||
else
|
||||
#if defined (VMS) || defined (WINNT) || defined (__APPLE__)
|
||||
return 0;
|
||||
return 0;
|
||||
#else
|
||||
return 1;
|
||||
return 1;
|
||||
#endif
|
||||
}
|
||||
|
||||
|
|
|
@ -1045,7 +1045,7 @@ package body Prj is
|
|||
end loop;
|
||||
|
||||
if Add_Object_Dir then
|
||||
return Project.Object_Directory.Name;
|
||||
return Project.Object_Directory.Display_Name;
|
||||
end if;
|
||||
end;
|
||||
end if;
|
||||
|
|
Loading…
Reference in New Issue