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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164086 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a336ba8..4d5f66d 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -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

diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index bba176d..bfb58e0 100644 (file)
--- a/gcc/ada/adaint.c
+++ b/gcc/ada/adaint.c
@@ -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
 }
 

diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb
index e0f9937..4ec2349 100644 (file)
--- a/gcc/ada/prj.adb
+++ b/gcc/ada/prj.adb
@@ -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;