diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-01-02 10:15:44 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-01-02 10:15:44 +0000 |
commit | c1cb7c7537af33dbd1146664a9c35d1b694839a7 (patch) | |
tree | d634861a660b2234686c24b7a8d3cb903120f717 /gcc | |
parent | c84321f94235aa602b3d01b9b386437c0cd3d5dc (diff) | |
download | gcc-c1cb7c7537af33dbd1146664a9c35d1b694839a7.tar.gz |
2013-01-02 Vincent Celier <celier@adacore.com>
* usage.adb: Minor reformatting.
2013-01-02 Arnaud Charlet <charlet@adacore.com>
* opt.ads: Fix typo.
2013-01-02 Thomas Quinot <quinot@adacore.com>
* par_sco.adb: Generate P decision SCOs for SPARK pragmas
Assume and Loop_Invariant.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@194791 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/ada/ChangeLog | 13 | ||||
-rw-r--r-- | gcc/ada/opt.ads | 4 | ||||
-rw-r--r-- | gcc/ada/par_sco.adb | 11 | ||||
-rw-r--r-- | gcc/ada/usage.adb | 4 |
4 files changed, 24 insertions, 8 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 0b7932b5c69..10b2b5a4725 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,16 @@ +2013-01-02 Vincent Celier <celier@adacore.com> + + * usage.adb: Minor reformatting. + +2013-01-02 Arnaud Charlet <charlet@adacore.com> + + * opt.ads: Fix typo. + +2013-01-02 Thomas Quinot <quinot@adacore.com> + + * par_sco.adb: Generate P decision SCOs for SPARK pragmas + Assume and Loop_Invariant. + 2013-01-02 Robert Dewar <dewar@adacore.com> * vms_data.ads: Add entry for Float_Check_Valid (-gnateF). diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads index 7e622148b48..944438b2071 100644 --- a/gcc/ada/opt.ads +++ b/gcc/ada/opt.ads @@ -281,7 +281,7 @@ package Opt is -- Set to True to check that operations on predefined unconstrained float -- types (e.g. Float, Long_Float) do not overflow and generate infinities -- or invalid values. Set by the Check_Float_Overflow pragma, or by use - -- of the -gnateo switch. + -- of the -gnateF switch. Check_Object_Consistency : Boolean := False; -- GNATBIND, GNATMAKE @@ -1737,7 +1737,7 @@ package Opt is -- Set to True to check that operations on predefined unconstrained float -- types (e.g. Float, Long_Float) do not overflow and generate infinities -- or invalid values. Set by the Check_Float_Overflow pragma, or by use - -- of the -gnateo switch. + -- of the -gnateF switch. Check_Policy_List_Config : Node_Id; -- GNAT diff --git a/gcc/ada/par_sco.adb b/gcc/ada/par_sco.adb index ea3b0cc19fe..8062563ad64 100644 --- a/gcc/ada/par_sco.adb +++ b/gcc/ada/par_sco.adb @@ -1890,10 +1890,13 @@ package body Par_SCO is begin case Nam is - when Name_Assert | - Name_Check | - Name_Precondition | - Name_Postcondition => + when Name_Assert | + Name_Assert_And_Cut | + Name_Assume | + Name_Check | + Name_Loop_Invariant | + Name_Precondition | + Name_Postcondition => -- For Assert/Check/Precondition/Postcondition, we -- must generate a P entry for the decision. Note diff --git a/gcc/ada/usage.adb b/gcc/ada/usage.adb index 3e55e647011..030239da138 100644 --- a/gcc/ada/usage.adb +++ b/gcc/ada/usage.adb @@ -170,7 +170,7 @@ begin -- Line for -gnatea switch Write_Switch_Char ("ea"); - Write_Line ("Delimiter for automatically added switches (internal switch"); + Write_Line ("Delimiter for automatically added switches (internal switch)"); -- Line for -gnateA switch @@ -255,7 +255,7 @@ begin -- Line for -gnatez switch Write_Switch_Char ("ez"); - Write_Line ("Delimiter for automatically added switches (internal switch"); + Write_Line ("Delimiter for automatically added switches (internal switch)"); -- Line for -gnatE switch |