/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/libgnat/ |
H A D | s-valrea.adb | 124 D_Val : Double_T; variable 190 D_Val := Double_Real.To_Double (Num (Val)); 203 D_Val := Double_Real.To_Double (Num (Lo)); 213 R_Val := Double_Real.To_Single (D_Val); 263 D_Val := D_Val * Powten (S); 265 D_Val := D_Val * Large_Powten (S); 270 D_Val := D_Val / Large_Powten (Maxexp); 275 D_Val := D_Val / Powten (-S); 277 D_Val := D_Val / Large_Powten (-S); 281 R_Val := Double_Real.To_Single (D_Val); [all …]
|
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | sem_aggr.adb | 2162 D_Val : Elmt_Id := No_Elmt; -- stop junk warning variable 2199 D_Val := First_Elmt (Discriminant_Constraint (Entity (Ancestor))); 2208 Discr_Expr := New_Copy_Tree (Node (D_Val)); 2223 Next_Elmt (D_Val);
|
H A D | sem_util.adb | 357 D_Val : Node_Id; variable 364 D_Val := Make_Selected_Component (Loc, 369 D_Val := New_Copy_Tree (Node (D)); 372 Append (D_Val, Constraints); 553 D_Val : Node_Id; variable 559 D_Val := 563 D_Val := New_Copy_Tree (Node (D)); 566 Append (D_Val, Constraints);
|
H A D | exp_aggr.adb | 2078 D_Val : Elmt_Id; 2082 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 2087 Next_Elmt (D_Val); 2090 pragma Assert (Present (D_Val)); 2096 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | sem_aggr.adb | 2162 D_Val : Elmt_Id := No_Elmt; -- stop junk warning variable 2199 D_Val := First_Elmt (Discriminant_Constraint (Entity (Ancestor))); 2208 Discr_Expr := New_Copy_Tree (Node (D_Val)); 2223 Next_Elmt (D_Val);
|
H A D | sem_util.adb | 357 D_Val : Node_Id; 364 D_Val := Make_Selected_Component (Loc, 369 D_Val := New_Copy_Tree (Node (D)); 372 Append (D_Val, Constraints); 553 D_Val : Node_Id; 559 D_Val := 563 D_Val := New_Copy_Tree (Node (D)); 566 Append (D_Val, Constraints);
|
H A D | exp_aggr.adb | 2078 D_Val : Elmt_Id; 2082 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 2087 Next_Elmt (D_Val); 2090 pragma Assert (Present (D_Val)); 2096 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/ |
H A D | exp_aggr.adb | 2844 D_Val : Elmt_Id; 2848 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 2852 Next_Elmt (D_Val); 2855 pragma Assert (Present (D_Val)); 2861 if Nkind (Node (D_Val)) /= N_Attribute_Reference 2862 or else not Is_Entity_Name (Prefix (Node (D_Val))) 2863 or else not Is_Type (Entity (Prefix (Node (D_Val)))) 2869 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
H A D | sem_aggr.adb | 2981 D_Val : Elmt_Id := No_Elmt; -- stop junk warning variable 3040 D_Val := First_Elmt (Discriminant_Constraint (Entity (Ancestor))); 3053 Discr_Expr := New_Copy_Tree (Node (D_Val)); 3069 Next_Elmt (D_Val);
|
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/ |
H A D | exp_aggr.adb | 2844 D_Val : Elmt_Id; 2848 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 2852 Next_Elmt (D_Val); 2855 pragma Assert (Present (D_Val)); 2861 if Nkind (Node (D_Val)) /= N_Attribute_Reference 2862 or else not Is_Entity_Name (Prefix (Node (D_Val))) 2863 or else not Is_Type (Entity (Prefix (Node (D_Val)))) 2869 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/ |
H A D | exp_aggr.adb | 2913 D_Val : Elmt_Id; 2917 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 2921 Next_Elmt (D_Val); 2924 pragma Assert (Present (D_Val)); 2930 if Nkind (Node (D_Val)) /= N_Attribute_Reference 2931 or else not Is_Entity_Name (Prefix (Node (D_Val))) 2932 or else not Is_Type (Entity (Prefix (Node (D_Val)))) 2938 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/ |
H A D | exp_aggr.adb | 3064 D_Val : Elmt_Id; 3068 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 3072 Next_Elmt (D_Val); 3075 pragma Assert (Present (D_Val)); 3081 if Nkind (Node (D_Val)) /= N_Attribute_Reference 3082 or else not Is_Entity_Name (Prefix (Node (D_Val))) 3083 or else not Is_Type (Entity (Prefix (Node (D_Val)))) 3089 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/ |
H A D | exp_aggr.adb | 3064 D_Val : Elmt_Id; 3068 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 3072 Next_Elmt (D_Val); 3075 pragma Assert (Present (D_Val)); 3081 if Nkind (Node (D_Val)) /= N_Attribute_Reference 3082 or else not Is_Entity_Name (Prefix (Node (D_Val))) 3083 or else not Is_Type (Entity (Prefix (Node (D_Val)))) 3089 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_aggr.adb | 3780 D_Val : Elmt_Id; 3784 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 3788 Next_Elmt (D_Val); 3791 pragma Assert (Present (D_Val)); 3797 if Nkind (Node (D_Val)) /= N_Attribute_Reference 3798 or else not Is_Entity_Name (Prefix (Node (D_Val))) 3799 or else not Is_Type (Entity (Prefix (Node (D_Val)))) 3805 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_aggr.adb | 3780 D_Val : Elmt_Id; 3784 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 3788 Next_Elmt (D_Val); 3791 pragma Assert (Present (D_Val)); 3797 if Nkind (Node (D_Val)) /= N_Attribute_Reference 3798 or else not Is_Entity_Name (Prefix (Node (D_Val))) 3799 or else not Is_Type (Entity (Prefix (Node (D_Val)))) 3805 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/ |
H A D | exp_aggr.adb | 3791 D_Val : Elmt_Id; 3795 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 3799 Next_Elmt (D_Val); 3802 pragma Assert (Present (D_Val)); 3808 if Nkind (Node (D_Val)) /= N_Attribute_Reference 3809 or else not Is_Entity_Name (Prefix (Node (D_Val))) 3810 or else not Is_Type (Entity (Prefix (Node (D_Val)))) 3816 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/ |
H A D | exp_aggr.adb | 3791 D_Val : Elmt_Id; 3795 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 3799 Next_Elmt (D_Val); 3802 pragma Assert (Present (D_Val)); 3808 if Nkind (Node (D_Val)) /= N_Attribute_Reference 3809 or else not Is_Entity_Name (Prefix (Node (D_Val))) 3810 or else not Is_Type (Entity (Prefix (Node (D_Val)))) 3816 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_aggr.adb | 3780 D_Val : Elmt_Id; 3784 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 3788 Next_Elmt (D_Val); 3791 pragma Assert (Present (D_Val)); 3797 if Nkind (Node (D_Val)) /= N_Attribute_Reference 3798 or else not Is_Entity_Name (Prefix (Node (D_Val))) 3799 or else not Is_Type (Entity (Prefix (Node (D_Val)))) 3805 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/ |
H A D | exp_aggr.adb | 3780 D_Val : Elmt_Id; 3784 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 3788 Next_Elmt (D_Val); 3791 pragma Assert (Present (D_Val)); 3797 if Nkind (Node (D_Val)) /= N_Attribute_Reference 3798 or else not Is_Entity_Name (Prefix (Node (D_Val))) 3799 or else not Is_Type (Entity (Prefix (Node (D_Val)))) 3805 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/ |
H A D | exp_aggr.adb | 3791 D_Val : Elmt_Id; 3795 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 3799 Next_Elmt (D_Val); 3802 pragma Assert (Present (D_Val)); 3808 if Nkind (Node (D_Val)) /= N_Attribute_Reference 3809 or else not Is_Entity_Name (Prefix (Node (D_Val))) 3810 or else not Is_Type (Entity (Prefix (Node (D_Val)))) 3816 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/ |
H A D | exp_aggr.adb | 3780 D_Val : Elmt_Id; 3784 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 3788 Next_Elmt (D_Val); 3791 pragma Assert (Present (D_Val)); 3797 if Nkind (Node (D_Val)) /= N_Attribute_Reference 3798 or else not Is_Entity_Name (Prefix (Node (D_Val))) 3799 or else not Is_Type (Entity (Prefix (Node (D_Val)))) 3805 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | exp_aggr.adb | 3780 D_Val : Elmt_Id; 3784 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 3788 Next_Elmt (D_Val); 3791 pragma Assert (Present (D_Val)); 3797 if Nkind (Node (D_Val)) /= N_Attribute_Reference 3798 or else not Is_Entity_Name (Prefix (Node (D_Val))) 3799 or else not Is_Type (Entity (Prefix (Node (D_Val)))) 3805 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/ |
H A D | exp_aggr.adb | 3780 D_Val : Elmt_Id; 3784 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 3788 Next_Elmt (D_Val); 3791 pragma Assert (Present (D_Val)); 3797 if Nkind (Node (D_Val)) /= N_Attribute_Reference 3798 or else not Is_Entity_Name (Prefix (Node (D_Val))) 3799 or else not Is_Type (Entity (Prefix (Node (D_Val)))) 3805 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/ |
H A D | exp_aggr.adb | 3780 D_Val : Elmt_Id; 3784 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 3788 Next_Elmt (D_Val); 3791 pragma Assert (Present (D_Val)); 3797 if Nkind (Node (D_Val)) /= N_Attribute_Reference 3798 or else not Is_Entity_Name (Prefix (Node (D_Val))) 3799 or else not Is_Type (Entity (Prefix (Node (D_Val)))) 3805 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/ada/ |
H A D | exp_aggr.adb | 3780 D_Val : Elmt_Id; 3784 D_Val := First_Elmt (Discriminant_Constraint (Typ)); 3788 Next_Elmt (D_Val); 3791 pragma Assert (Present (D_Val)); 3797 if Nkind (Node (D_Val)) /= N_Attribute_Reference 3798 or else not Is_Entity_Name (Prefix (Node (D_Val))) 3799 or else not Is_Type (Entity (Prefix (Node (D_Val)))) 3805 Left_Opnd => New_Copy_Tree (Node (D_Val)),
|