TeamHeptaMirrors/gcc
1
0
Fork 1
mirror of https://github.com/gcc-mirror/gcc.git synced 2026-05-06 14:59:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Ada: Fix build failure for 32-bit libada on FreeBSD

Browse Source 
The FreeBSD-specific subunit has not been adjusted to the renaming.

gcc/ada/
	PR ada/125168
	* libgnat/s-dorepr__freebsd.adb (Two_Prod): Adjust to renaming.
	(Two_Sqr): Likewise.
This commit is contained in:
Eric Botcazou
2026-05-03 23:39:44 +02:00
parent a66820ce3f
commit b5c443828a
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/libgnat/s-dorepr__freebsd.adb
View File

@@ -134,7 +134,7 @@ package body Product is
Ahi, Alo, Bhi, Blo, E : Num;
begin
if Is_Infinity (P) or else Is_Zero (P) then
if Is_Infinity_Or_NaN (P) or else Is_Zero (P) then
return (P, 0.0);
else
@@ -157,7 +157,7 @@ package body Product is
Hi, Lo, E : Num;
begin
if Is_Infinity (Q) or else Is_Zero (Q) then
if Is_Infinity_Or_NaN (Q) or else Is_Zero (Q) then
return (Q, 0.0);
else