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
+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.
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;
(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.
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);