diff options
author | Eric Botcazou <ebotcazou@adacore.com> | 2021-09-22 12:18:48 +0200 |
---|---|---|
committer | Eric Botcazou <ebotcazou@adacore.com> | 2021-09-22 12:20:05 +0200 |
commit | 3ae5e6fbc89f45ef6874c3d37b75ae63311943a3 (patch) | |
tree | fcd980ede44a3cfd0da78f868dcc860393f35f90 /gcc | |
parent | e1223ea2f48e8588160b2948f8a1f8e47f9694fd (diff) | |
download | gcc-3ae5e6fbc89f45ef6874c3d37b75ae63311943a3.zip gcc-3ae5e6fbc89f45ef6874c3d37b75ae63311943a3.tar.gz gcc-3ae5e6fbc89f45ef6874c3d37b75ae63311943a3.tar.bz2 |
Small tweak to comments in range_cannot_be_superflat
gcc/ada/
* gcc-interface/decl.c (range_cannot_be_superflat): Tweak comments.
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/ada/gcc-interface/decl.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 884d1d8..32142d0 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -6503,7 +6503,8 @@ range_cannot_be_superflat (Node_Id gnat_range) Node_Id gnat_scalar_range; tree gnu_lb, gnu_hb, gnu_lb_minus_one; - /* If the low bound is not constant, try to find an upper bound. */ + /* If the low bound is not constant, take the worst case by finding an upper + bound for its type, repeatedly if need be. */ while (Nkind (gnat_lb) != N_Integer_Literal && (Ekind (Etype (gnat_lb)) == E_Signed_Integer_Subtype || Ekind (Etype (gnat_lb)) == E_Modular_Integer_Subtype) @@ -6512,7 +6513,8 @@ range_cannot_be_superflat (Node_Id gnat_range) || Nkind (gnat_scalar_range) == N_Range)) gnat_lb = High_Bound (gnat_scalar_range); - /* If the high bound is not constant, try to find a lower bound. */ + /* If the high bound is not constant, take the worst case by finding a lower + bound for its type, repeatedly if need be. */ while (Nkind (gnat_hb) != N_Integer_Literal && (Ekind (Etype (gnat_hb)) == E_Signed_Integer_Subtype || Ekind (Etype (gnat_hb)) == E_Modular_Integer_Subtype) |