From c2b2b2d7ab77e3c9ee9122b920c5c401151d0bca Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Fri, 22 May 2015 10:32:15 +0000 Subject: [PATCH] exp_ch4.adb: Minor rewording. 2015-05-22 Robert Dewar * exp_ch4.adb: Minor rewording. * exp_util.ads: Clarify that Find_Prim_Op is only for tagged types. From-SVN: r223539 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/exp_ch4.adb | 4 ++-- gcc/ada/exp_util.ads | 11 +++++------ 3 files changed, 13 insertions(+), 8 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 346fb54550b..9e1d36fa58f 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2015-05-22 Robert Dewar + + * exp_ch4.adb: Minor rewording. + * exp_util.ads: Clarify that Find_Prim_Op is only for + tagged types. + 2015-05-22 Robert Dewar * atree.adb, atree.ads, treepr.adb: Change name Needs_Actuals_Check to diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index b6326fc8613..9cf4391798b 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 393857e9748..a7d8f4cca2a 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; -- 2.30.2