procedure Build_Float_Type
(E : Entity_Id;
- Digs : Int;
+ Digs : Pos;
Rep : Float_Rep_Kind;
Siz : Int;
- Align : Int);
+ Align : Nat);
-- Procedure to build standard predefined float base type. The first
-- parameter is the entity for the type. The second parameter is the
-- digits value. The third parameter indicates the representation to
procedure Build_Float_Type
(E : Entity_Id;
- Digs : Int;
+ Digs : Pos;
Rep : Float_Rep_Kind;
Siz : Int;
- Align : Int)
+ Align : Nat)
is
begin
Set_Type_Definition (Parent (E),
Set_Defining_Identifier (New_Node (N_Full_Type_Declaration, Stloc), Ent);
Set_Scope (Ent, Standard_Standard);
Build_Float_Type
- (Ent, Pos (Digs), Float_Rep, Int (Size), Int (Alignment / 8));
+ (Ent, Pos (Digs), Float_Rep, Int (Size), Nat (Alignment / 8));
Append_New_Elmt (Ent, Back_End_Float_Types);
end Register_Float_Type;
type FPT_Mode_Entry is record
NAME : String_Ptr; -- Name of mode (no null character at end)
- DIGS : Natural; -- Digits for floating-point type
+ DIGS : Positive; -- Digits for floating-point type
FLOAT_REP : Float_Rep_Kind; -- Float representation
PRECISION : Natural; -- Precision in bits
SIZE : Natural; -- Size in bits