From: Eric Botcazou <ebotcazou@adacore.com>
Date: Sun, 3 May 2026 21:39:44 +0000 (+0200)
Subject: Ada: Fix build failure for 32-bit libada on FreeBSD
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b5c443828ac7be01beb3580e6be3dcfce14c975a;p=thirdparty%2Fgcc.git

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

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.
---

diff --git a/gcc/ada/libgnat/s-dorepr__freebsd.adb b/gcc/ada/libgnat/s-dorepr__freebsd.adb
index a23b091d4a3..695a5053b54 100644
--- a/gcc/ada/libgnat/s-dorepr__freebsd.adb
+++ b/gcc/ada/libgnat/s-dorepr__freebsd.adb
@@ -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