diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-04 11:38:17 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-04 11:38:17 +0200 |
| commit | d26d790dca2c2135161666dc955cc39befbaf587 (patch) | |
| tree | f3d0f0f15149eab824acc982a9afeee6d907057d /gcc/ada/exp_ch4.adb | |
| parent | d478ac59ee07d9d70a11083c662f78d5a48de5f9 (diff) | |
| download | gcc-d26d790dca2c2135161666dc955cc39befbaf587.zip gcc-d26d790dca2c2135161666dc955cc39befbaf587.tar.gz gcc-d26d790dca2c2135161666dc955cc39befbaf587.tar.bz2 | |
[multiple changes]
2014-08-04 Robert Dewar <dewar@adacore.com>
* checks.adb (Activate_Overflow_Check): Remove
Check_Float_Overflow processing.
(Apply_Scalar_Range_Check): Ditto.
(Generate_Range_Check): Ditto.
* exp_ch4.adb (Expand_N_Op_Add): Add call to
Check_Float_Op_Overflow.
(Expand_N_Op_Divide): ditto.
(Expand_N_Op_Multiply): ditto.
(Expand_N_Op_Subtract): ditto.
* exp_util.ads, exp_util.adb (Check_Float_Op_Overflow): New procedure.
* sem_attr.adb (Analyze_Attribute, case Pred): Make sure
Do_Range_Check is set for floating-point case in -gnatc or
GNATprove mode.
(Analyze_Attribute, case Succ): Make sure
Do_Range_Check is set for floating-point case in -gnatc or
GNATprove mode.
* sem_res.adb (Resolve_Type_Conversion): Make sure Do_Range_Check
flag is set for real to integer conversion in GNATprove or
-gnatc mode.
2014-08-04 Gary Dismukes <dismukes@adacore.com>
* sem_ch13.adb (Analyze_Aspect_Specifications): Resolve
the expression of an Import or Export aspect as type Boolean
and require it to be static. Add ??? comment. Also, set the
Is_Exported flag when appropriate.
From-SVN: r213545
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index e0f76fc..0f4261f 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -151,11 +151,11 @@ package body Exp_Ch4 is Bodies : List_Id) return Node_Id; -- Local recursive function used to expand equality for nested composite -- types. Used by Expand_Record/Array_Equality, Bodies is a list on which - -- to attach bodies of local functions that are created in the process. - -- It is the responsibility of the caller to insert those bodies at the - -- right place. Nod provides the Sloc value for generated code. Lhs and Rhs - -- are the left and right sides for the comparison, and Typ is the type of - -- the objects to compare. + -- to attach bodies of local functions that are created in the process. It + -- is the responsibility of the caller to insert those bodies at the right + -- place. Nod provides the Sloc value for generated code. Lhs and Rhs are + -- the left and right sides for the comparison, and Typ is the type of the + -- objects to compare. procedure Expand_Concatenate (Cnode : Node_Id; Opnds : List_Id); -- Routine to expand concatenation of a sequence of two or more operands |