Commit fab62a15 by Arnaud Charlet

[multiple changes]

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.

From-SVN: r194791
parent 2dbdd821
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> 2013-01-02 Robert Dewar <dewar@adacore.com>
* vms_data.ads: Add entry for Float_Check_Valid (-gnateF). * vms_data.ads: Add entry for Float_Check_Valid (-gnateF).
......
...@@ -281,7 +281,7 @@ package Opt is ...@@ -281,7 +281,7 @@ package Opt is
-- Set to True to check that operations on predefined unconstrained float -- Set to True to check that operations on predefined unconstrained float
-- types (e.g. Float, Long_Float) do not overflow and generate infinities -- 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 -- 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; Check_Object_Consistency : Boolean := False;
-- GNATBIND, GNATMAKE -- GNATBIND, GNATMAKE
...@@ -1737,7 +1737,7 @@ package Opt is ...@@ -1737,7 +1737,7 @@ package Opt is
-- Set to True to check that operations on predefined unconstrained float -- Set to True to check that operations on predefined unconstrained float
-- types (e.g. Float, Long_Float) do not overflow and generate infinities -- 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 -- 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; Check_Policy_List_Config : Node_Id;
-- GNAT -- GNAT
......
...@@ -1890,10 +1890,13 @@ package body Par_SCO is ...@@ -1890,10 +1890,13 @@ package body Par_SCO is
begin begin
case Nam is case Nam is
when Name_Assert | when Name_Assert |
Name_Check | Name_Assert_And_Cut |
Name_Precondition | Name_Assume |
Name_Postcondition => Name_Check |
Name_Loop_Invariant |
Name_Precondition |
Name_Postcondition =>
-- For Assert/Check/Precondition/Postcondition, we -- For Assert/Check/Precondition/Postcondition, we
-- must generate a P entry for the decision. Note -- must generate a P entry for the decision. Note
......
...@@ -170,7 +170,7 @@ begin ...@@ -170,7 +170,7 @@ begin
-- Line for -gnatea switch -- Line for -gnatea switch
Write_Switch_Char ("ea"); 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 -- Line for -gnateA switch
...@@ -255,7 +255,7 @@ begin ...@@ -255,7 +255,7 @@ begin
-- Line for -gnatez switch -- Line for -gnatez switch
Write_Switch_Char ("ez"); 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 -- Line for -gnatE switch
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment