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

gcc/ada/ChangeLog

+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

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
 }
 

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;