mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-11 03:50:27 +08:00
Code Issues Packages Projects Releases Wiki Activity

[multiple changes]

Browse Source 
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
This commit is contained in:
Arnaud Charlet 2010-08-10 15:37:59 +02:00
parent ceddf62caf
commit 1f92d7f29a
3 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/ChangeLog
View File

@ -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.

2
gcc/ada/adaint.c
View File

@ -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;

5
gcc/ada/exp_attr.adb
View File

@ -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);