diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-24 15:04:40 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-24 15:04:40 +0200 |
| commit | dba44dbef91efd698ead6dcce7b19a24a4522000 (patch) | |
| tree | d41774edc5e71ca4dd9eb0d1a97fbbbe701d2d1e /gcc/ada/sem_ch3.adb | |
| parent | ca3e17b09114fea7ff08ed215ae79482ad16b706 (diff) | |
| download | gcc-dba44dbef91efd698ead6dcce7b19a24a4522000.zip gcc-dba44dbef91efd698ead6dcce7b19a24a4522000.tar.gz gcc-dba44dbef91efd698ead6dcce7b19a24a4522000.tar.bz2 | |
[multiple changes]
2013-04-24 Robert Dewar <dewar@adacore.com>
* exp_ch13.adb, sem_prag.adb: Update comments.
* sem_ch3.adb, exp_ch9.adb, g-socket.adb, sem_ch13.adb: Minor
reformatting.
2013-04-24 Doug Rupp <rupp@adacore.com>
* vms_data.ads (/{NO}INHIBIT-EXEC): Document new default behavior.
2013-04-24 Yannick Moy <moy@adacore.com>
* sinfo.ads: Minor correction of typo.
From-SVN: r198223
Diffstat (limited to 'gcc/ada/sem_ch3.adb')
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 079c0ec..3751ead 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -2223,6 +2223,7 @@ package body Sem_Ch3 is if Pragma_Name (Prag) = Name_Depends then Analyze_Depends_In_Decl_Part (Prag); else + pragma Assert (Pragma_Name (Prag) = Name_Global); Analyze_Global_In_Decl_Part (Prag); end if; @@ -11530,7 +11531,8 @@ package body Sem_Ch3 is -- If the component of the parent is packed, and the record type is -- already frozen, as is the case for an itype, the component type -- itself will not be frozen, and the packed array type for it must - -- be constructed explicitly. + -- be constructed explicitly. Since the creation of packed types is + -- an expansion activity, we only do this if expansion is active. if Expander_Active and then Is_Packed (Compon_Type) |