Home
last modified time | relevance | path

Searched refs:D_Val (Results 1 – 25 of 54) sorted by relevance

123

/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/libgnat/
H A Ds-valrea.adb124 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 Dsem_aggr.adb2162 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 Dsem_util.adb357 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 Dexp_aggr.adb2078 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 Dsem_aggr.adb2162 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 Dsem_util.adb357 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 Dexp_aggr.adb2078 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 Dexp_aggr.adb2844 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 Dsem_aggr.adb2981 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 Dexp_aggr.adb2844 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 Dexp_aggr.adb2913 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 Dexp_aggr.adb3064 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 Dexp_aggr.adb3064 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 Dexp_aggr.adb3780 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 Dexp_aggr.adb3780 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 Dexp_aggr.adb3791 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 Dexp_aggr.adb3791 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 Dexp_aggr.adb3780 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 Dexp_aggr.adb3780 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 Dexp_aggr.adb3791 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 Dexp_aggr.adb3780 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 Dexp_aggr.adb3780 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 Dexp_aggr.adb3780 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 Dexp_aggr.adb3780 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 Dexp_aggr.adb3780 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)),

123