diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 08:12:11 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 08:12:11 +0000 |
| commit | f63b4aea4f7357a4812f9340ea74dca2856b05e4 (patch) | |
| tree | 56a3f2468cc8daed245bc41f9016ad9f88c5cbf4 /gcc/ada/freeze.adb | |
| parent | f95fe7a3e2a7cbb2a2e8e535a8ae579518c3b026 (diff) | |
| download | gcc-f63b4aea4f7357a4812f9340ea74dca2856b05e4.tar.gz | |
2009-07-13 Robert Dewar <dewar@adacore.com>
* i-cobol.ads: Minor code fix (2**4 instead of 16 as modulus to avoid
warning).
* par-ch4.adb: Minor reformatting
2009-07-13 Ed Schonberg <schonberg@adacore.com>
* freeze.adb, freeze.ads, exp_aggr.adb: Rename Expand_Atomic_Aggregate
=> Is_Atomic_Aggregate
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149548 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/freeze.adb')
| -rw-r--r-- | gcc/ada/freeze.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 231ec877a81..152d982f689 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -1111,11 +1111,11 @@ package body Freeze is end loop; end Check_Unsigned_Type; - ----------------------------- - -- Expand_Atomic_Aggregate -- - ----------------------------- + ------------------------- + -- Is_Atomic_Aggregate -- + ------------------------- - function Expand_Atomic_Aggregate + function Is_Atomic_Aggregate (E : Entity_Id; Typ : Entity_Id) return Boolean is @@ -1154,7 +1154,7 @@ package body Freeze is else return False; end if; - end Expand_Atomic_Aggregate; + end Is_Atomic_Aggregate; ---------------- -- Freeze_All -- @@ -2364,7 +2364,7 @@ package body Freeze is and then Present (Expression (Parent (E))) and then Nkind (Expression (Parent (E))) = N_Aggregate and then - Expand_Atomic_Aggregate (Expression (Parent (E)), Etype (E)) + Is_Atomic_Aggregate (Expression (Parent (E)), Etype (E)) then null; end if; |