[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.

diff --git a/gcc/ada/libgnat/a-tifiio.adb b/gcc/ada/libgnat/a-tifiio.adb
index f5f8979..2d0b47c 100644 (file)
--- 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 (file)
--- 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