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>
|
2010-09-09 Arnaud Charlet <charlet@adacore.com>
|
||||||
|
|
||||||
* gcc-interface/Makefile.in, gcc-interface/Make-lang.in: Update
|
* gcc-interface/Makefile.in, gcc-interface/Make-lang.in: Update
|
||||||
|
|
|
@ -579,10 +579,17 @@ __gnat_get_maximum_file_name_length (void)
|
||||||
int
|
int
|
||||||
__gnat_get_file_names_case_sensitive (void)
|
__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__)
|
#if defined (VMS) || defined (WINNT) || defined (__APPLE__)
|
||||||
return 0;
|
return 0;
|
||||||
#else
|
#else
|
||||||
return 1;
|
return 1;
|
||||||
#endif
|
#endif
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -1045,7 +1045,7 @@ package body Prj is
|
||||||
end loop;
|
end loop;
|
||||||
|
|
||||||
if Add_Object_Dir then
|
if Add_Object_Dir then
|
||||||
return Project.Object_Directory.Name;
|
return Project.Object_Directory.Display_Name;
|
||||||
end if;
|
end if;
|
||||||
end;
|
end;
|
||||||
end if;
|
end if;
|
||||||
|
|
Loading…
Reference in New Issue