diff options
author | Robert Dewar <dewar@adacore.com> | 2015-05-12 09:28:19 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-12 11:28:19 +0200 |
commit | fed8bd87d5832d9c61c648ed2a2103f853fad00a (patch) | |
tree | 5513301ef8e56200c391753bd0ede25c21b307b9 /gcc/ada/checks.adb | |
parent | 27fd9ad83b56a6cb256bae3a1c6524afb624d209 (diff) | |
download | gcc-fed8bd87d5832d9c61c648ed2a2103f853fad00a.zip gcc-fed8bd87d5832d9c61c648ed2a2103f853fad00a.tar.gz gcc-fed8bd87d5832d9c61c648ed2a2103f853fad00a.tar.bz2 |
sem_ch9.adb, [...]: Minor reformatting.
2015-05-12 Robert Dewar <dewar@adacore.com>
* sem_ch9.adb, einfo.ads, exp_intr.adb: Minor reformatting.
* sem_disp.adb: Minor code reorganization (remove junk redundant
null statement).
* exp_unst.adb (Unnest_Subprogram.Uplev_Refs): Ignore uplevel
references to bounds of types coming from original type reference.
* checks.ads: Minor reformatting.
* checks.adb: Minor reformatting.
* sem_prag.adb (Analyze_Pragma, case Check): If in ignored
assertion, then make sure we do not drag in bignum stuff.
From-SVN: r223053
Diffstat (limited to 'gcc/ada/checks.adb')
-rw-r--r-- | gcc/ada/checks.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index e869605..b2e779c 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -7789,9 +7789,9 @@ package body Checks is Analyze_And_Resolve (N, Typ); - Scope_Suppress.Suppress (Overflow_Check) := Svo; - Scope_Suppress.Overflow_Mode_General := Svg; - Scope_Suppress.Overflow_Mode_Assertions := Sva; + Scope_Suppress.Suppress (Overflow_Check) := Svo; + Scope_Suppress.Overflow_Mode_General := Svg; + Scope_Suppress.Overflow_Mode_Assertions := Sva; end Reanalyze; -------------- @@ -7817,9 +7817,9 @@ package body Checks is Expand (N); - Scope_Suppress.Suppress (Overflow_Check) := Svo; - Scope_Suppress.Overflow_Mode_General := Svg; - Scope_Suppress.Overflow_Mode_Assertions := Sva; + Scope_Suppress.Suppress (Overflow_Check) := Svo; + Scope_Suppress.Overflow_Mode_General := Svg; + Scope_Suppress.Overflow_Mode_Assertions := Sva; end Reexpand; -- Start of processing for Minimize_Eliminate_Overflows |