diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2020-09-21 21:09:29 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-26 04:59:16 -0400 |
| commit | fcae4f70cd2ccc91079df0e31d840dd43145b617 (patch) | |
| tree | dd401fdc562abc4c5e199b8c683e6a9a51640613 /gcc/ada | |
| parent | 38a61cff222cc99e5eb31133339c9768e9b5c8b0 (diff) | |
| download | gcc-fcae4f70cd2ccc91079df0e31d840dd43145b617.zip gcc-fcae4f70cd2ccc91079df0e31d840dd43145b617.tar.gz gcc-fcae4f70cd2ccc91079df0e31d840dd43145b617.tar.bz2 | |
[Ada] Further small edition to documentation of Ada.Text_IO.Fixed_IO
gcc/ada/
* libgnat/a-tifiio.adb: Add missing sign in documentation.
* libgnat/s-imgrea.ads: Minor fixes in commentary.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/libgnat/a-tifiio.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/libgnat/s-imgrea.ads | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/libgnat/a-tifiio.adb b/gcc/ada/libgnat/a-tifiio.adb index f5f8979..2d0b47c 100644 --- a/gcc/ada/libgnat/a-tifiio.adb +++ b/gcc/ada/libgnat/a-tifiio.adb @@ -233,7 +233,7 @@ package body Ada.Text_IO.Fixed_IO is -- or - -- (3) Y = 1 and Z = (1.0 / S) * 10**(-D), for D < 0 + -- (3) Y = -1 and Z = -(1.0 / S) * 10**(-D), for D < 0 -- Negative values are used for nominator Y and denominator Z, so that S -- can have a maximum value of 2.0**63 and a minimum of 2.0**(-63). diff --git a/gcc/ada/libgnat/s-imgrea.ads b/gcc/ada/libgnat/s-imgrea.ads index 9711516..565666a 100644 --- a/gcc/ada/libgnat/s-imgrea.ads +++ b/gcc/ada/libgnat/s-imgrea.ads @@ -44,7 +44,7 @@ package System.Img_Real is -- image for fixed-point types (RM 3.5(34)), where Aft is the value of the -- Aft attribute for the fixed-point type. This function is used only for -- ordinary fixed point (see package System.Img_Dec for handling of decimal - -- fixed-point). The caller guarantees that S is long enough to hold the + -- fixed point). The caller guarantees that S is long enough to hold the -- result and has a lower bound of 1. procedure Image_Floating_Point @@ -52,7 +52,7 @@ package System.Img_Real is S : in out String; P : out Natural; Digs : Natural); - -- Computes fixed_type'Image (V) and returns the result in S (1 .. P) + -- Computes float_type'Image (V) and returns the result in S (1 .. P) -- updating P on return. The result is computed according to the rules for -- image for floating-point types (RM 3.5(33)), where Digs is the value of -- the Digits attribute for the floating-point type. The caller guarantees |