1 files changed, 15 insertions, 15 deletions

diff --git a/gcc/ada/uintp.ads b/gcc/ada/uintp.ads
index 5a340b39968..46286611e78 100644
--- a/gcc/ada/uintp.ads
+++ b/gcc/ada/uintp.ads
@@ -113,12 +113,12 @@ package Uintp is
 
    function UI_Abs (Right : Uint) return Uint;
    pragma Inline (UI_Abs);
-   --  Returns abs function of universal integer.
+   --  Returns abs function of universal integer
 
    function UI_Add (Left : Uint; Right : Uint) return Uint;
    function UI_Add (Left : Int;  Right : Uint) return Uint;
    function UI_Add (Left : Uint; Right : Int)  return Uint;
-   --  Returns sum of two integer values.
+   --  Returns sum of two integer values
 
    function UI_Decimal_Digits_Hi (U : Uint) return Nat;
    --  Returns an estimate of the number of decimal digits required to
@@ -143,44 +143,44 @@ package Uintp is
    function UI_Eq (Left : Int;  Right : Uint) return Boolean;
    function UI_Eq (Left : Uint; Right : Int)  return Boolean;
    pragma Inline (UI_Eq);
-   --  Compares integer values for equality.
+   --  Compares integer values for equality
 
    function UI_Expon (Left : Uint; Right : Uint) return Uint;
    function UI_Expon (Left : Int;  Right : Uint) return Uint;
    function UI_Expon (Left : Uint; Right : Int)  return Uint;
    function UI_Expon (Left : Int;  Right : Int)  return Uint;
-   --  Returns result of exponentiating two integer values
+   --  Returns result of exponentiating two integer values.
    --  Fatal error if Right is negative.
 
    function UI_GCD (Uin, Vin : Uint) return Uint;
-   --  Computes GCD of input values. Assumes Uin >= Vin >= 0.
+   --  Computes GCD of input values. Assumes Uin >= Vin >= 0
 
    function UI_Ge (Left : Uint; Right : Uint) return Boolean;
    function UI_Ge (Left : Int;  Right : Uint) return Boolean;
    function UI_Ge (Left : Uint; Right : Int)  return Boolean;
    pragma Inline (UI_Ge);
-   --  Compares integer values for greater than or equal.
+   --  Compares integer values for greater than or equal
 
    function UI_Gt (Left : Uint; Right : Uint) return Boolean;
    function UI_Gt (Left : Int;  Right : Uint) return Boolean;
    function UI_Gt (Left : Uint; Right : Int)  return Boolean;
    pragma Inline (UI_Gt);
-   --  Compares integer values for greater than.
+   --  Compares integer values for greater than
 
    function UI_Is_In_Int_Range (Input : Uint) return Boolean;
    pragma Inline (UI_Is_In_Int_Range);
-   --  Determines if universal integer is in Int range.
+   --  Determines if universal integer is in Int range
 
    function UI_Le (Left : Uint; Right : Uint) return Boolean;
    function UI_Le (Left : Int;  Right : Uint) return Boolean;
    function UI_Le (Left : Uint; Right : Int)  return Boolean;
    pragma Inline (UI_Le);
-   --  Compares integer values for less than or equal.
+   --  Compares integer values for less than or equal
 
    function UI_Lt (Left : Uint; Right : Uint) return Boolean;
    function UI_Lt (Left : Int;  Right : Uint) return Boolean;
    function UI_Lt (Left : Uint; Right : Int)  return Boolean;
-   --  Compares integer values for less than.
+   --  Compares integer values for less than
 
    function UI_Max (Left : Uint; Right : Uint) return Uint;
    function UI_Max (Left : Int;  Right : Uint) return Uint;
@@ -190,13 +190,13 @@ package Uintp is
    function UI_Min (Left : Uint; Right : Uint) return Uint;
    function UI_Min (Left : Int;  Right : Uint) return Uint;
    function UI_Min (Left : Uint; Right : Int)  return Uint;
-   --  Returns minimum of two integer values.
+   --  Returns minimum of two integer values
 
    function UI_Mod (Left : Uint; Right : Uint) return Uint;
    function UI_Mod (Left : Int;  Right : Uint) return Uint;
    function UI_Mod (Left : Uint; Right : Int)  return Uint;
    pragma Inline (UI_Mod);
-   --  Returns mod function of two integer values.
+   --  Returns mod function of two integer values
 
    function UI_Mul (Left : Uint; Right : Uint) return Uint;
    function UI_Mul (Left : Int;  Right : Uint) return Uint;
@@ -207,16 +207,16 @@ package Uintp is
    function UI_Ne (Left : Int;  Right : Uint) return Boolean;
    function UI_Ne (Left : Uint; Right : Int)  return Boolean;
    pragma Inline (UI_Ne);
-   --  Compares integer values for inequality.
+   --  Compares integer values for inequality
 
    function UI_Negate (Right : Uint) return Uint;
    pragma Inline (UI_Negate);
-   --  Returns negative of universal integer.
+   --  Returns negative of universal integer
 
    function UI_Rem (Left : Uint; Right : Uint) return Uint;
    function UI_Rem (Left : Int;  Right : Uint) return Uint;
    function UI_Rem (Left : Uint; Right : Int)  return Uint;
-   --  Returns rem of two integer values.
+   --  Returns rem of two integer values
 
    function UI_Sub (Left : Uint; Right : Uint) return Uint;
    function UI_Sub (Left : Int;  Right : Uint) return Uint;