OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Vincent Celier 2010-09-09 12:56:05 +00:00 committed by Arnaud Charlet
parent cb1a6faeef
commit 616191687c
3 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/ChangeLog
View File

@ -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

11
gcc/ada/adaint.c
View File

@ -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
}

2
gcc/ada/prj.adb
View File

@ -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;