ada: Tune style in code for floating-point numbers

Cleanup whitespace and comments.

gcc/ada/ChangeLog:

	* ada_get_targ.adb, cstand.ads, cstand.adb, sem_eval.adb, sem_eval.ads,
	urealp.adb, urealp.ads: Tune style.

diff --git a/gcc/ada/ada_get_targ.adb b/gcc/ada/ada_get_targ.adb
index 72e54520b28b830b28f73cb3f9601964dfd22db6..853197ad002481cfe3fbe2a99379cd510b929cdd 100644 (file)
--- a/gcc/ada/ada_get_targ.adb
+++ b/gcc/ada/ada_get_targ.adb
@@ -219,9 +219,14 @@ package body Get_Targ is
    begin
       Float_Str (Float_Str'First .. Float_Str'First + 4) := "float";
       Call_Back
-        (C_Name => Float_Str, Digs => 6, Complex => False, Count  => 0,
+        (C_Name    => Float_Str,
+         Digs      => 6,
+         Complex   => False,
+         Count     => 0,
          Float_Rep => IEEE_Binary,
-         Precision => 32, Size => 32, Alignment => 32);
+         Precision => 32,
+         Size      => 32,
+         Alignment => 32);
 
       Double_Str (Double_Str'First .. Double_Str'First + 5) := "double";
       Call_Back

diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb
index 28c32690b48e3c0ca0161ec6e424239899b03b61..1dc06986e74d0f9446eb320b19f198239b56e697 100644 (file)
--- a/gcc/ada/cstand.adb
+++ b/gcc/ada/cstand.adb
@@ -2095,7 +2095,7 @@ package body CStand is
    -- Set_Float_Bounds --
    ----------------------
 
-   procedure Set_Float_Bounds (Id  : Entity_Id) is
+   procedure Set_Float_Bounds (Id : Entity_Id) is
       L : Node_Id;
       H : Node_Id;
       --  Low and high bounds of literal value

diff --git a/gcc/ada/cstand.ads b/gcc/ada/cstand.ads
index 62644fe546c02bc14b8a0380eacc69cfddc2d84d..bfd30526e1143f2bc524632aae1716bd70e9a937 100644 (file)
--- a/gcc/ada/cstand.ads
+++ b/gcc/ada/cstand.ads
@@ -42,7 +42,7 @@ package CStand is
    --  The semantics info is in the format given by Entity_Info. The global
    --  variables Last_Standard_Node_Id and Last_Standard_List_Id are also set.
 
-   procedure Set_Float_Bounds (Id  : Entity_Id);
+   procedure Set_Float_Bounds (Id : Entity_Id);
    --  Procedure to set bounds for float type or subtype. Id is the entity
    --  whose bounds and type are to be set (a floating-point type).
 

diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb
index f5cd0449d61733ca51ae42c5f0a1c60a169fb9fe..fcab3e79d3327f2a5b0194961b9ae351ee7a34da 100644 (file)
--- a/gcc/ada/sem_eval.adb
+++ b/gcc/ada/sem_eval.adb
@@ -144,7 +144,7 @@ package body Sem_Eval is
    Checking_For_Potentially_Static_Expression : Boolean := False;
    --  Global flag that is set True during Analyze_Static_Expression_Function
    --  in order to verify that the result expression of a static expression
-   --  function is a potentially static function (see RM2022 6.8(5.3)).
+   --  function is a potentially static function (see RM 2022 6.8(5.3)).
 
    -----------------------
    -- Local Subprograms --

diff --git a/gcc/ada/sem_eval.ads b/gcc/ada/sem_eval.ads
index 7df1c4c25e91e920c391c9ab4b62bd27de65081a..b6f44ef68332c7a483013bf6eeca28cbe7e08a48 100644 (file)
--- a/gcc/ada/sem_eval.ads
+++ b/gcc/ada/sem_eval.ads
@@ -301,34 +301,34 @@ package Sem_Eval is
    --  is static or its value is known at compile time. This version is used
    --  for string types and returns the corresponding N_String_Literal node.
 
-   procedure Eval_Actual                 (N : Node_Id);
-   procedure Eval_Allocator              (N : Node_Id);
-   procedure Eval_Arithmetic_Op          (N : Node_Id);
-   procedure Eval_Call                   (N : Node_Id);
-   procedure Eval_Case_Expression        (N : Node_Id);
-   procedure Eval_Character_Literal      (N : Node_Id);
-   procedure Eval_Concatenation          (N : Node_Id);
-   procedure Eval_Entity_Name            (N : Node_Id);
-   procedure Eval_If_Expression          (N : Node_Id);
-   procedure Eval_Indexed_Component      (N : Node_Id);
-   procedure Eval_Integer_Literal        (N : Node_Id);
-   procedure Eval_Logical_Op             (N : Node_Id);
-   procedure Eval_Membership_Op          (N : Node_Id);
-   procedure Eval_Named_Integer          (N : Node_Id);
-   procedure Eval_Named_Real             (N : Node_Id);
-   procedure Eval_Op_Expon               (N : Node_Id);
-   procedure Eval_Op_Not                 (N : Node_Id);
-   procedure Eval_Real_Literal           (N : Node_Id);
-   procedure Eval_Relational_Op          (N : Node_Id);
-   procedure Eval_Selected_Component     (N : Node_Id);
-   procedure Eval_Shift                  (N : Node_Id);
-   procedure Eval_Short_Circuit          (N : Node_Id);
-   procedure Eval_Slice                  (N : Node_Id);
-   procedure Eval_String_Literal         (N : Node_Id);
-   procedure Eval_Qualified_Expression   (N : Node_Id);
-   procedure Eval_Type_Conversion        (N : Node_Id);
-   procedure Eval_Unary_Op               (N : Node_Id);
-   procedure Eval_Unchecked_Conversion   (N : Node_Id);
+   procedure Eval_Actual               (N : Node_Id);
+   procedure Eval_Allocator            (N : Node_Id);
+   procedure Eval_Arithmetic_Op        (N : Node_Id);
+   procedure Eval_Call                 (N : Node_Id);
+   procedure Eval_Case_Expression      (N : Node_Id);
+   procedure Eval_Character_Literal    (N : Node_Id);
+   procedure Eval_Concatenation        (N : Node_Id);
+   procedure Eval_Entity_Name          (N : Node_Id);
+   procedure Eval_If_Expression        (N : Node_Id);
+   procedure Eval_Indexed_Component    (N : Node_Id);
+   procedure Eval_Integer_Literal      (N : Node_Id);
+   procedure Eval_Logical_Op           (N : Node_Id);
+   procedure Eval_Membership_Op        (N : Node_Id);
+   procedure Eval_Named_Integer        (N : Node_Id);
+   procedure Eval_Named_Real           (N : Node_Id);
+   procedure Eval_Op_Expon             (N : Node_Id);
+   procedure Eval_Op_Not               (N : Node_Id);
+   procedure Eval_Real_Literal         (N : Node_Id);
+   procedure Eval_Relational_Op        (N : Node_Id);
+   procedure Eval_Selected_Component   (N : Node_Id);
+   procedure Eval_Shift                (N : Node_Id);
+   procedure Eval_Short_Circuit        (N : Node_Id);
+   procedure Eval_Slice                (N : Node_Id);
+   procedure Eval_String_Literal       (N : Node_Id);
+   procedure Eval_Qualified_Expression (N : Node_Id);
+   procedure Eval_Type_Conversion      (N : Node_Id);
+   procedure Eval_Unary_Op             (N : Node_Id);
+   procedure Eval_Unchecked_Conversion (N : Node_Id);
 
    procedure Flag_Non_Static_Expr (Msg : String; Expr : Node_Id);
    --  This procedure is called after it has been determined that Expr is not

diff --git a/gcc/ada/urealp.adb b/gcc/ada/urealp.adb
index 103deb0e8e62ec52d3f2434999ca24d080350c52..446a65664f98bd9c6698f55a3a6280e2642ae95f 100644 (file)
--- a/gcc/ada/urealp.adb
+++ b/gcc/ada/urealp.adb
@@ -34,7 +34,7 @@ package body Urealp is
    --  add 1 to No_Ureal, since "+" means something different for Ureals).
 
    type Ureal_Entry is record
-      Num  : Uint;
+      Num : Uint;
       --  Numerator (always non-negative)
 
       Den : Uint;

diff --git a/gcc/ada/urealp.ads b/gcc/ada/urealp.ads
index 323efc8b9281fd7c9002cd24b3715422c7922733..c7725bf8da002cab2d2d71f79dbfec8a77a7f764 100644 (file)
--- a/gcc/ada/urealp.ads
+++ b/gcc/ada/urealp.ads
@@ -233,7 +233,7 @@ package Urealp is
    function UR_Sub (Left : Ureal; Right : Uint)  return Ureal;
    --  Returns real difference of operands
 
-   function UR_Exponentiate (Real  : Ureal; N : Uint) return  Ureal;
+   function UR_Exponentiate (Real : Ureal; N : Uint) return Ureal;
    --  Returns result of raising Ureal to Uint power.
    --  Fatal error if Left is 0 and Right is negative.
 
@@ -317,7 +317,7 @@ package Urealp is
    function "-" (Left : Uint;  Right : Ureal) return Ureal renames UR_Sub;
    function "-" (Left : Ureal; Right : Uint)  return Ureal renames UR_Sub;
 
-   function "**"  (Real  : Ureal; N : Uint) return Ureal
+   function "**"  (Real : Ureal; N : Uint) return Ureal
                                                      renames UR_Exponentiate;
 
    function "abs" (Real : Ureal) return Ureal renames UR_Abs;