[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 1b4e752bcb24bc9f7ade7f36eb1f04585ada70e1..2715b54782cb881e0237d6d6158b3f5df9d021cc 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,11 @@
+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.

diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index 9b814e945d0977bf8a6dbebe39f846d2a2c08222..cc1dd99ead6c47b95d4759e9966e12b2742c42fa 100644 (file)
--- a/gcc/ada/adaint.c
+++ b/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;

diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb
index 5126e5a1730482757d53f60a6fb5e31ab8bfe78f..7bb6285f5e233a4bd6353472b487842361f1d582 100644 (file)
--- a/gcc/ada/exp_attr.adb
+++ b/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);