/dports/lang/gnat_util/gnat_util/ |
H A D | repinfo.adb | 1158 if Esize (Ent) = RM_Size (Ent) then 1191 Write_Val (RM_Size (Ent));
|
H A D | einfo.ads | 7133 function RM_Size (Id : E) return U; subprogspec 8628 pragma Inline (RM_Size);
|
H A D | einfo.adb | 3064 function RM_Size (Id : E) return U is subprogram 3068 end RM_Size;
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/ |
H A D | sem_ch12.adb | 2363 Set_RM_Size (Base, RM_Size (Int_Base)); 2379 Set_RM_Size (T, RM_Size (Int_Base)); 2556 Set_RM_Size (T, RM_Size (Standard_Float)); 2564 Set_RM_Size (Base, RM_Size (Standard_Float)); 2769 Set_RM_Size (T, RM_Size (Standard_Integer)); 2781 Set_RM_Size (Base, RM_Size (Standard_Integer)); 3219 Set_RM_Size (T, RM_Size (Standard_Integer)); 3263 Set_RM_Size (T, RM_Size (Standard_Integer)); 3269 Set_RM_Size (Base, RM_Size (Standard_Integer)); 7146 Set_RM_Size (E, RM_Size (Astype));
|
H A D | repinfo.adb | 375 if Esize (Ent) = RM_Size (Ent) then 397 Write_Val (RM_Size (Ent)); 410 Write_Val (RM_Size (Ent));
|
H A D | sem_intr.adb | 433 Size := UI_To_Int (RM_Size (Typ1));
|
H A D | sem_prag.adb | 20835 and then Esize (Ctyp) = RM_Size (Ctyp)
|
H A D | sem_res.adb | 685 RM_Size (Standard_Positive); 8091 Set_RM_Size (New_T, RM_Size (Typ)); 12677 Set_RM_Size (Index_Subtype, RM_Size (Index_Type)); 12831 Set_RM_Size (Index_Subtype, RM_Size (Index_Type)); 14084 and then RM_Size (Target) /= RM_Size (Opnd)
|
H A D | repinfo-input.adb | 45 RM_Size : Node_Ref_Or_Val; component 188 return JSON_Entity_Table.Table (Index).RM_Size; 523 Ent.RM_Size := No_Uint; 545 Ent.RM_Size := Siz; 549 Ent.RM_Size := Read_Numerical_Expr;
|
H A D | sem_aggr.adb | 581 Set_RM_Size (Index_Typ, RM_Size (Index_Base));
|
H A D | sem_eval.adb | 5035 Modulus := Uint_2 ** RM_Size (Typ); 5063 Modulus := Uint_2 ** RM_Size (Typ); 5095 Modulus := Uint_2 ** RM_Size (Typ); 5128 * Uint_2 ** (RM_Size (Typ) - Expr_Value (Right)), 5140 * Uint_2 ** (RM_Size (Typ) - Expr_Value (Right))
|
H A D | exp_fixd.adb | 367 Left_Size := UI_To_Int (RM_Size (Left_Type)); 380 Right_Size := UI_To_Int (RM_Size (Right_Type)); 437 X_Size : constant Nat := UI_To_Int (RM_Size (Etype (X))); 438 Y_Size : constant Nat := UI_To_Int (RM_Size (Etype (Y))); 439 Z_Size : constant Nat := UI_To_Int (RM_Size (Etype (Z))); 512 X_Size : constant Nat := UI_To_Int (RM_Size (Etype (X))); 513 Y_Size : constant Nat := UI_To_Int (RM_Size (Etype (Y))); 514 Z_Size : constant Nat := UI_To_Int (RM_Size (Etype (Z))); 690 Left_Size := UI_To_Int (RM_Size (Left_Type)); 703 Right_Size := UI_To_Int (RM_Size (Right_Type)); [all …]
|
H A D | exp_intr.adb | 195 Siz : constant Uint := UI_Max (RM_Size (T1), RM_Size (T2));
|
H A D | freeze.adb | 864 if RM_Size (T) < S then 3703 Csiz := UI_Max (RM_Size (Ctyp), 1); 4154 and then RM_Size (Idx_Typ) = RM_Size (Standard_Long_Long_Integer) 6748 if RM_Size (E) = Num_Elmts * Rsiz then 6761 elsif RM_Size (E) /= Uint_0 then 6874 Error_Msg_Uint_1 := RM_Size (E); 9253 if Size_Incl_EP <= RM_Size (Typ) then 9473 if Actual_Size > RM_Size (Typ) then 9474 Error_Msg_Uint_1 := RM_Size (Typ); 9565 if RM_Size (Typ) < Minsiz then [all …]
|
H A D | layout.adb | 381 if S >= RM_Size (E) then 391 Set_Esize (E, RM_Size (E)); 532 if not Known_RM_Size (E) or else RM_Size (E) = Siz then 599 if Esize (E) < RM_Size (E) then 606 Error_Msg_Uint_1 := RM_Size (E); 616 Size : constant Uint := RM_Size (E); 619 Set_Esize (E, RM_Size (E)); 752 Siz := RM_Size (E); 911 Set_RM_Size (Def_Id, RM_Size (FST));
|
H A D | ChangeLog-2019 | 101 not copy the Esize onto the RM_Size if the latter is not set. 148 the RM_Size on the subtype built for a Component_Size clause 2120 * sem_ch3.adb (Analyze_Subtype_Declaration): Inherit RM_Size
|
H A D | einfo-utils.adb | 520 return Present (RM_Size (E)); 526 and then RM_Size (E) >= Uint_0 538 Set_RM_Size (To, RM_Size (From)); 574 pragma Assert (not Known_RM_Size (Id) or else RM_Size (Id) = V);
|
H A D | exp_ch5.adb | 1486 and then RM_Size (L_Typ) < Standard_Long_Long_Integer_Size; 1489 and then RM_Size (R_Typ) < Standard_Long_Long_Integer_Size; 1547 Standard_Long_Long_Integer_Size - RM_Size (L_Typ))); 1558 Standard_Long_Long_Integer_Size - RM_Size (R_Typ))); 1576 Standard_Long_Long_Integer_Size - RM_Size (L_Typ)));
|
H A D | exp_ch9.adb | 3227 Typ_Size := UI_To_Int (RM_Size (Comp_Type));
|
H A D | sem_attr.adb | 6149 Siz := RM_Size (Entity (P)); 8278 Attr_Value : Uint := RM_Size (P_Entity); 9960 Fold_Uint (N, RM_Size (P_TypeA), Static); 10201 Fold_Uint (N, RM_Size (P_TypeA), Static); 11746 and then RM_Size (Typ) = System_Address_Size
|
H A D | sem_ch3.adb | 7526 Set_RM_Size (Implicit_Base, RM_Size (Parent_Type)); 7685 Set_RM_Size (Implicit_Base, RM_Size (Parent_Base)); 16954 Set_RM_Size (Implicit_Base, RM_Size (Root_Type (Parent_Type))); 16977 Set_RM_Size (Derived_Type, RM_Size (Parent_Type)); 18576 Set_RM_Size (Implicit_Base, RM_Size (Base_Typ)); 18584 Set_RM_Size (T, RM_Size (Implicit_Base)); 19872 Set_RM_Size (Def_Id, RM_Size (T)); 19940 if not Non_Binary_Modulus (T) and then Esize (T) = RM_Size (T) then 23031 Set_RM_Size (Implicit_Base, RM_Size (Base_Typ));
|
H A D | sem_ch13.adb | 6912 and then RM_Size (Ctyp) /= Csize 7965 Error_Msg_Uint_1 := RM_Size (U_Ent); 8412 if RM_Size (Enumtype) >= Minsize then 8423 if RM_Size (Enumtype) < Minsize then 8424 Error_Msg_Uint_1 := RM_Size (Enumtype); 8794 and then RM_Size (Rectype) <= Lbit 12279 Parent_Last_Bit := RM_Size (PS) - 1; 12360 and then RM_Size (Rectype) <= Lbit 12362 Error_Msg_Uint_1 := RM_Size (Rectype); 17644 Source_Siz := RM_Size (Source); [all …]
|
H A D | sem_util.adb | 27493 return UI_To_Int (RM_Size (T)) > Threshold; 29183 Size := UI_To_Int (RM_Size (Typ));
|
H A D | exp_util.adb | 11810 and then RM_Size (Exp_Type) <= System_Max_Integer_Size
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/gcc-interface/ |
H A D | decl.c | 1844 esize = UI_To_Int (RM_Size (gnat_entity)); in gnat_to_gnu_entity() 1866 && Esize (gnat_entity) == RM_Size (gnat_entity) in gnat_to_gnu_entity() 1960 UI_To_gnu (RM_Size (gnat_entity), bitsizetype)); in gnat_to_gnu_entity() 2020 tree gnu_size = UI_To_gnu (RM_Size (gnat_entity), bitsizetype); in gnat_to_gnu_entity() 2744 && UI_To_Int (RM_Size (Entity (First_Index (gnat_entity)))) in gnat_to_gnu_entity() 3109 = UI_To_gnu (RM_Size (gnat_entity), bitsizetype); in gnat_to_gnu_entity() 3126 unsigned int max_size = UI_To_Int (RM_Size (gnat_entity)); in gnat_to_gnu_entity() 4313 = validate_size (RM_Size (gnat_entity), gnu_type, gnat_entity, in gnat_to_gnu_entity() 4395 set_rm_size (RM_Size (gnat_entity), gnu_type, gnat_entity); in gnat_to_gnu_entity()
|