diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-22 10:32:15 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-22 10:32:15 +0000 |
| commit | e9793878a1e09de9888c8e48366391c9d66f9833 (patch) | |
| tree | 150ab6c8a17cfe56baba4c532fe7680fdabba6eb /gcc/ada/exp_ch4.adb | |
| parent | 00e1556e5185b61d05ddc694678d9ac3ae6eca75 (diff) | |
| download | gcc-e9793878a1e09de9888c8e48366391c9d66f9833.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@223539 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 4 |
1 files changed, 2 insertions, 2 deletions
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) |