/dports/cad/opencascade/opencascade-7.6.0/src/math/ |
H A D | math_DirectPolynomialRoots.cxx | 472 Standard_Real Discrim = B * B - 4.0 * A * C; in Solve() local 474 if(Abs(Discrim) <= EpsD) Discrim = 0.0; in Solve() 475 if(Discrim < 0.0) { in Solve() 478 else if(Discrim == 0.0) { in Solve() 487 TheRoots[0] = - (B + sqrt(Discrim)) / (2.0 * A); in Solve() 490 TheRoots[0] = - (B - sqrt(Discrim)) / (2.0 * A); in Solve()
|
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | sem_aggr.adb | 2625 Discrim : Entity_Id; variable 2636 Discrim := First_Discriminant (Typ); 2638 Discrim := Empty; 2644 if Discr_Present (Discrim) then 2652 N, Discrim); 2655 Next_Discriminant (Discrim); 2660 while Present (Discrim) loop 2663 if not Discr_Present (Discrim) then 2667 N, Discrim); 2676 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
H A D | layout.adb | 930 type Val_Status_Type is (Const, Dynamic, Discrim); literal 939 when Dynamic | Discrim => 992 if Size.Status /= Discrim then 994 Size := (Discrim, Size.Nod); 1986 Discrim : Node_Id; variable 2057 Discrim := 2077 Left_Opnd => Discrim, 2094 New_List (Discrim)));
|
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | sem_aggr.adb | 2625 Discrim : Entity_Id; variable 2636 Discrim := First_Discriminant (Typ); 2638 Discrim := Empty; 2644 if Discr_Present (Discrim) then 2652 N, Discrim); 2655 Next_Discriminant (Discrim); 2660 while Present (Discrim) loop 2663 if not Discr_Present (Discrim) then 2667 N, Discrim); 2676 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/ |
H A D | sem_aggr.adb | 3556 Discrim : Entity_Id; variable 3583 Discrim := First_Discriminant (Typ); 3585 Discrim := Empty; 3591 if Discr_Present (Discrim) then 3608 N, Discrim); 3611 Next_Discriminant (Discrim); 3616 while Present (Discrim) loop 3619 if not Discr_Present (Discrim) then 3623 N, Discrim); 3632 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/ |
H A D | sem_aggr.adb | 3556 Discrim : Entity_Id; variable 3583 Discrim := First_Discriminant (Typ); 3585 Discrim := Empty; 3591 if Discr_Present (Discrim) then 3608 N, Discrim); 3611 Next_Discriminant (Discrim); 3616 while Present (Discrim) loop 3619 if not Discr_Present (Discrim) then 3623 N, Discrim); 3632 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/ |
H A D | sem_aggr.adb | 3731 Discrim : Entity_Id; variable 3758 Discrim := First_Discriminant (Typ); 3760 Discrim := Empty; 3766 if Discr_Present (Discrim) then 3783 N, Discrim); 3786 Next_Discriminant (Discrim); 3791 while Present (Discrim) loop 3794 if not Discr_Present (Discrim) then 3798 N, Discrim); 3807 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/ |
H A D | sem_aggr.adb | 3731 Discrim : Entity_Id; variable 3758 Discrim := First_Discriminant (Typ); 3760 Discrim := Empty; 3766 if Discr_Present (Discrim) then 3783 N, Discrim); 3786 Next_Discriminant (Discrim); 3791 while Present (Discrim) loop 3794 if not Discr_Present (Discrim) then 3798 N, Discrim); 3807 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/ |
H A D | sem_aggr.adb | 3715 Discrim : Entity_Id; variable 3742 Discrim := First_Discriminant (Typ); 3744 Discrim := Empty; 3750 if Discr_Present (Discrim) then 3767 N, Discrim); 3770 Next_Discriminant (Discrim); 3775 while Present (Discrim) loop 3778 if not Discr_Present (Discrim) then 3782 N, Discrim); 3791 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | sem_aggr.adb | 4450 Discrim : Entity_Id; variable 4477 Discrim := First_Discriminant (Typ); 4479 Discrim := Empty; 4485 if Discriminant_Present (Discrim) then 4502 N, Discrim); 4505 Next_Discriminant (Discrim); 4510 while Present (Discrim) loop 4513 if not Discriminant_Present (Discrim) then 4517 N, Discrim); 4526 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/ |
H A D | sem_aggr.adb | 4463 Discrim : Entity_Id; variable 4490 Discrim := First_Discriminant (Typ); 4492 Discrim := Empty; 4498 if Discriminant_Present (Discrim) then 4515 N, Discrim); 4518 Next_Discriminant (Discrim); 4523 while Present (Discrim) loop 4526 if not Discriminant_Present (Discrim) then 4530 N, Discrim); 4539 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/ |
H A D | sem_aggr.adb | 4450 Discrim : Entity_Id; variable 4477 Discrim := First_Discriminant (Typ); 4479 Discrim := Empty; 4485 if Discriminant_Present (Discrim) then 4502 N, Discrim); 4505 Next_Discriminant (Discrim); 4510 while Present (Discrim) loop 4513 if not Discriminant_Present (Discrim) then 4517 N, Discrim); 4526 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/ |
H A D | sem_aggr.adb | 4450 Discrim : Entity_Id; variable 4477 Discrim := First_Discriminant (Typ); 4479 Discrim := Empty; 4485 if Discriminant_Present (Discrim) then 4502 N, Discrim); 4505 Next_Discriminant (Discrim); 4510 while Present (Discrim) loop 4513 if not Discriminant_Present (Discrim) then 4517 N, Discrim); 4526 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/ |
H A D | sem_aggr.adb | 4723 Discrim : Entity_Id; variable 4754 Discrim := First_Discriminant (Typ); 4756 Discrim := Empty; 4762 if Discriminant_Present (Discrim) then 4779 N, Discrim); 4782 Next_Discriminant (Discrim); 4787 while Present (Discrim) loop 4790 if not Discriminant_Present (Discrim) then 4794 N, Discrim); 4803 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/ |
H A D | sem_aggr.adb | 4493 Discrim : Entity_Id; variable 4520 Discrim := First_Discriminant (Typ); 4522 Discrim := Empty; 4528 if Discriminant_Present (Discrim) then 4545 N, Discrim); 4548 Next_Discriminant (Discrim); 4553 while Present (Discrim) loop 4556 if not Discriminant_Present (Discrim) then 4560 N, Discrim); 4569 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | sem_aggr.adb | 4450 Discrim : Entity_Id; variable 4477 Discrim := First_Discriminant (Typ); 4479 Discrim := Empty; 4485 if Discriminant_Present (Discrim) then 4502 N, Discrim); 4505 Next_Discriminant (Discrim); 4510 while Present (Discrim) loop 4513 if not Discriminant_Present (Discrim) then 4517 N, Discrim); 4526 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/ |
H A D | sem_aggr.adb | 4723 Discrim : Entity_Id; variable 4754 Discrim := First_Discriminant (Typ); 4756 Discrim := Empty; 4762 if Discriminant_Present (Discrim) then 4779 N, Discrim); 4782 Next_Discriminant (Discrim); 4787 while Present (Discrim) loop 4790 if not Discriminant_Present (Discrim) then 4794 N, Discrim); 4803 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/ |
H A D | sem_aggr.adb | 4450 Discrim : Entity_Id; variable 4477 Discrim := First_Discriminant (Typ); 4479 Discrim := Empty; 4485 if Discriminant_Present (Discrim) then 4502 N, Discrim); 4505 Next_Discriminant (Discrim); 4510 while Present (Discrim) loop 4513 if not Discriminant_Present (Discrim) then 4517 N, Discrim); 4526 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/ |
H A D | sem_aggr.adb | 4493 Discrim : Entity_Id; variable 4520 Discrim := First_Discriminant (Typ); 4522 Discrim := Empty; 4528 if Discriminant_Present (Discrim) then 4545 N, Discrim); 4548 Next_Discriminant (Discrim); 4553 while Present (Discrim) loop 4556 if not Discriminant_Present (Discrim) then 4560 N, Discrim); 4569 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/ |
H A D | sem_aggr.adb | 4723 Discrim : Entity_Id; variable 4754 Discrim := First_Discriminant (Typ); 4756 Discrim := Empty; 4762 if Discriminant_Present (Discrim) then 4779 N, Discrim); 4782 Next_Discriminant (Discrim); 4787 while Present (Discrim) loop 4790 if not Discriminant_Present (Discrim) then 4794 N, Discrim); 4803 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/ |
H A D | sem_aggr.adb | 4493 Discrim : Entity_Id; variable 4520 Discrim := First_Discriminant (Typ); 4522 Discrim := Empty; 4528 if Discriminant_Present (Discrim) then 4545 N, Discrim); 4548 Next_Discriminant (Discrim); 4553 while Present (Discrim) loop 4556 if not Discriminant_Present (Discrim) then 4560 N, Discrim); 4569 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/ |
H A D | sem_aggr.adb | 4450 Discrim : Entity_Id; variable 4477 Discrim := First_Discriminant (Typ); 4479 Discrim := Empty; 4485 if Discriminant_Present (Discrim) then 4502 N, Discrim); 4505 Next_Discriminant (Discrim); 4510 while Present (Discrim) loop 4513 if not Discriminant_Present (Discrim) then 4517 N, Discrim); 4526 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/ |
H A D | sem_aggr.adb | 4463 Discrim : Entity_Id; variable 4490 Discrim := First_Discriminant (Typ); 4492 Discrim := Empty; 4498 if Discriminant_Present (Discrim) then 4515 N, Discrim); 4518 Next_Discriminant (Discrim); 4523 while Present (Discrim) loop 4526 if not Discriminant_Present (Discrim) then 4530 N, Discrim); 4539 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/ada/ |
H A D | sem_aggr.adb | 4463 Discrim : Entity_Id; variable 4490 Discrim := First_Discriminant (Typ); 4492 Discrim := Empty; 4498 if Discriminant_Present (Discrim) then 4515 N, Discrim); 4518 Next_Discriminant (Discrim); 4523 while Present (Discrim) loop 4526 if not Discriminant_Present (Discrim) then 4530 N, Discrim); 4539 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/ |
H A D | sem_aggr.adb | 4964 Discrim : Entity_Id; variable 4995 Discrim := First_Discriminant (Typ); 4997 Discrim := Empty; 5003 if Discriminant_Present (Discrim) then 5020 N, Discrim); 5023 Next_Discriminant (Discrim); 5028 while Present (Discrim) loop 5031 if not Discriminant_Present (Discrim) then 5035 N, Discrim); 5044 Resolve_Aggr_Expr (Expr, Discrim); [all …]
|