diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-24 15:13:04 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-24 15:13:04 +0200 |
commit | f1c80977503ef50a812c3545c9b902fd65c086eb (patch) | |
tree | 05e7930e1c95e146a56c96c5b0caef56ec0f883c /gcc/ada/checks.adb | |
parent | ced8450b58d295f31cf70f31812008f8c5f497bc (diff) | |
download | gcc-f1c80977503ef50a812c3545c9b902fd65c086eb.zip gcc-f1c80977503ef50a812c3545c9b902fd65c086eb.tar.gz gcc-f1c80977503ef50a812c3545c9b902fd65c086eb.tar.bz2 |
[multiple changes]
2013-04-24 Robert Dewar <dewar@adacore.com>
* sem_prag.adb (Process_Convention): Move Stdcall tests to
Set_Convention_From_Pragma so that they are applied to each
entry of a homonym set.
(Process_Convention): Don't try to set convention if already set.
2013-04-24 Robert Dewar <dewar@adacore.com>
* gnatbind.adb: Minor reformatting.
2013-04-24 Vincent Celier <celier@adacore.com>
* clean.adb (Gnatclean): Add the default project search
directories in the project search path after scanning the
switches on the command line.
(Initialize): Do not put the default project search directories in the
project search path.
* gnatcmd.adb (GNATcmd): Add the default project search
directories in the project search path after scanning the switches
on the command line.
* make.adb (Initialize): Add the default project search
directories in the project search path after scanning the switches
on the command line.
2013-04-24 Yannick Moy <moy@adacore.com>
* restrict.ads (Restriction_Warnings): Initialize with all False value.
2013-04-24 Robert Dewar <dewar@adacore.com>
* checks.ads, checks.adb (Predicate_Checks_Suppressed): New function.
* exp_util.ads, exp_util.adb (Make_Predicate_Check): Check setting of
Predicate_Check.
* snames.ads-tmpl (Name_Predicate_Check): New check name.
* types.ads (Predicate_Check): New definition.
* gnat_rm.texi: Add documentation for Predicate_Check.
From-SVN: r198226
Diffstat (limited to 'gcc/ada/checks.adb')
-rw-r--r-- | gcc/ada/checks.adb | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index 964aed5..d0d8c2c 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -7750,6 +7750,19 @@ package body Checks is end if; end Overflow_Checks_Suppressed; + --------------------------------- + -- Predicate_Checks_Suppressed -- + --------------------------------- + + function Predicate_Checks_Suppressed (E : Entity_Id) return Boolean is + begin + if Present (E) and then Checks_May_Be_Suppressed (E) then + return Is_Check_Suppressed (E, Predicate_Check); + else + return Scope_Suppress.Suppress (Predicate_Check); + end if; + end Predicate_Checks_Suppressed; + ----------------------------- -- Range_Checks_Suppressed -- ----------------------------- |