https://gcc.gnu.org/g:268258b222502feddf365600ccd20967c4216209
commit r16-1242-g268258b222502feddf365600ccd20967c4216209
Author: Piotr Trojanek <troja...@adacore.com>
Date: Tue Feb 18 14:36:53 2025 +0100
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:
---
gcc/ada/ada_get_targ.adb | 9 ++++++--
gcc/ada/cstand.adb | 2 +-
gcc/ada/cstand.ads | 2 +-
gcc/ada/sem_eval.adb | 2 +-
gcc/ada/sem_eval.ads | 56 ++++++++++++++++++++++++------------------------
gcc/ada/urealp.adb | 2 +-
gcc/ada/urealp.ads | 4 ++--
7 files changed, 41 insertions(+), 36 deletions(-)
diff --git a/gcc/ada/ada_get_targ.adb b/gcc/ada/ada_get_targ.adb
index 72e54520b28b..853197ad0024 100644
--- 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 28c32690b48e..1dc06986e74d 100644
--- 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 62644fe546c0..bfd30526e114 100644
--- 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 f5cd0449d617..fcab3e79d332 100644
--- 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 7df1c4c25e91..b6f44ef68332 100644
--- 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 103deb0e8e62..446a65664f98 100644
--- 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 323efc8b9281..c7725bf8da00 100644
--- 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;
