[multiple changes]

2010-08-10  Thomas Quinot  <quinot@adacore.com>

	* exp_attr.adb: Add comments.

2010-08-10  Jerome Lambourg  <lambourg@adacore.com>

	* adaint.c (__gnat_get_file_names_case_sensitive): return 0 on darwin.

From-SVN: r163059

gcc/ada/ChangeLog

+2010-08-10  Thomas Quinot  <quinot@adacore.com>
+
+	* exp_attr.adb: Add comments.
+
+2010-08-10  Jerome Lambourg  <lambourg@adacore.com>
+
+	* adaint.c (__gnat_get_file_names_case_sensitive): return 0 on darwin.
+
 2010-08-09  Nathan Froyd  <froydnj@codesourcery.com>
 
 	* gcc-interface/utils.c (gnat_poplevel): Use blocks_nreverse.

gcc/ada/adaint.c

@@ -579,7 +579,7 @@ __gnat_get_maximum_file_name_length (void)
 int
 __gnat_get_file_names_case_sensitive (void)
 {
-#if defined (VMS) || defined (WINNT)
+#if defined (VMS) || defined (WINNT) || defined (__APPLE__)
   return 0;
 #else
   return 1;

gcc/ada/exp_attr.adb

@@ -96,7 +96,6 @@ package body Exp_Attr is
      (N    : Node_Id;
       Pref : Node_Id;
       Typ  : Entity_Id);
-
    --  An attribute reference to a protected subprogram is transformed into
    --  a pair of pointers: one to the object, and one to the operations.
    --  This expansion is performed for 'Access and for 'Unrestricted_Access.
@@ -370,7 +369,11 @@ package body Exp_Attr is
         Make_Aggregate (Loc,
           Expressions => New_List (Obj_Ref, Sub_Ref));
 
+      --  Sub_Ref has been marked as analyzed, but we still need to make sure
+      --  Sub is correctly frozen.
+
       Freeze_Before (N, Entity (Sub));
+
       Rewrite (N, Agg);
       Analyze_And_Resolve (N, E_T);