diff options
author | Robert Dewar <dewar@adacore.com> | 2010-09-09 09:57:00 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-09-09 11:57:00 +0200 |
commit | 7a963087d4ac84018143595d1a61c008453b70bd (patch) | |
tree | 3d96305a5fd5eb104053e32acb56c0321908d12f /gcc/ada/frontend.adb | |
parent | 61bcf5ca33e9ea22001c1283a9ea0df5bcae2ecc (diff) | |
download | gcc-7a963087d4ac84018143595d1a61c008453b70bd.zip gcc-7a963087d4ac84018143595d1a61c008453b70bd.tar.gz gcc-7a963087d4ac84018143595d1a61c008453b70bd.tar.bz2 |
sem_ch13.adb, [...]: Minor reformatting.
2010-09-09 Robert Dewar <dewar@adacore.com>
* sem_ch13.adb, sem_ch6.adb, exp_ch3.adb: Minor reformatting.
2010-09-09 Robert Dewar <dewar@adacore.com>
* einfo.adb (Is_Aggregate_Type): New function.
* einfo.ads (Aggregate_Kind): New enumeration subtype
(Is_Aggregate_Type): New function.
* sem_type.adb (Is_Array_Class_Record_Type): Removed, replaced by
Is_Aggregate_Typea.
2010-09-09 Robert Dewar <dewar@adacore.com>
* exp_ch11.adb, frontend.adb, sem_attr.adb, sem_ch10.adb, sem_ch3.adb,
sem_ch4.adb, sem_ch9.adb, sem_res.adb: Use Restriction_Check_Needed
where appropriate.
* restrict.ads, restrict.adb: Ditto.
(Restriction_Check_Needed): New function
From-SVN: r164061
Diffstat (limited to 'gcc/ada/frontend.adb')
-rw-r--r-- | gcc/ada/frontend.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/frontend.adb b/gcc/ada/frontend.adb index fb5eb43..bea0bdc 100644 --- a/gcc/ada/frontend.adb +++ b/gcc/ada/frontend.adb @@ -290,7 +290,7 @@ begin -- explicit switch turning off Warn_On_Non_Local_Exception, then turn on -- this warning by default if we have encountered an exception handler. - if Restriction_Active (No_Exception_Propagation) + if Restriction_Check_Required (No_Exception_Propagation) and then not No_Warn_On_Non_Local_Exception and then Exception_Handler_Encountered then |