diff options
| author | Robert Dewar <dewar@adacore.com> | 2015-05-22 10:32:15 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-22 12:32:15 +0200 |
| commit | c2b2b2d7ab77e3c9ee9122b920c5c401151d0bca (patch) | |
| tree | 150ab6c8a17cfe56baba4c532fe7680fdabba6eb /gcc/ada | |
| parent | b502ba3c7b960e353e9226b69847adf368293009 (diff) | |
| download | gcc-c2b2b2d7ab77e3c9ee9122b920c5c401151d0bca.zip gcc-c2b2b2d7ab77e3c9ee9122b920c5c401151d0bca.tar.gz gcc-c2b2b2d7ab77e3c9ee9122b920c5c401151d0bca.tar.bz2 | |
exp_ch4.adb: Minor rewording.
2015-05-22 Robert Dewar <dewar@adacore.com>
* exp_ch4.adb: Minor rewording.
* exp_util.ads: Clarify that Find_Prim_Op is only for
tagged types.
From-SVN: r223539
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/exp_util.ads | 11 |
3 files changed, 13 insertions, 8 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 346fb54..9e1d36fa 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,11 @@ 2015-05-22 Robert Dewar <dewar@adacore.com> + * exp_ch4.adb: Minor rewording. + * exp_util.ads: Clarify that Find_Prim_Op is only for + tagged types. + +2015-05-22 Robert Dewar <dewar@adacore.com> + * atree.adb, atree.ads, treepr.adb: Change name Needs_Actuals_Check to Check_Actuals. * exp_ch4.adb (Expand_N_Op_Expon): Optimize 2**x in modular diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index b6326fc..9cf4391 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -7662,7 +7662,7 @@ package body Exp_Ch4 is if Is_Integer_Type (Rtyp) - -- The base value must be safe, compile-time known, and exactly 2 + -- The base value must be "safe compile-time known", and exactly 2 and then Nkind (Base) = N_Integer_Literal and then CRT_Safe_Compile_Time_Known_Value (Base) @@ -7674,7 +7674,7 @@ package body Exp_Ch4 is and then Esize (Root_Type (Exptyp)) <= Esize (Standard_Integer) -- This transformation is not applicable for a modular type with a - -- nonbinary modulus because we do not handle modular reduction in + -- non-binary modulus because we do not handle modular reduction in -- a correct manner if we attempt this transformation in this case. and then not Non_Binary_Modulus (Typ) diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads index 393857e..a7d8f4c 100644 --- a/gcc/ada/exp_util.ads +++ b/gcc/ada/exp_util.ads @@ -468,13 +468,12 @@ package Exp_Util is -- return the record component containing the tag of Iface. function Find_Prim_Op (T : Entity_Id; Name : Name_Id) return Entity_Id; - -- Find the first primitive operation of type T whose name is 'Name'. + -- Find the first primitive operation of a tagged type T with name Name. -- This function allows the use of a primitive operation which is not - -- directly visible. If T is a class wide type, then the reference is - -- to an operation of the corresponding root type. Raises Program_Error - -- exception if no primitive operation is found. This is normally an - -- internal error, but in some cases is an expected consequence of - -- illegalities elsewhere. + -- directly visible. If T is a class wide type, then the reference is to an + -- operation of the corresponding root type. Raises Program_Error exception + -- if no primitive operation is found. This is normally an internal error, + -- but in some cases is an expected consequence of illegalities elsewhere. function Find_Prim_Op (T : Entity_Id; |