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 a23b091d4a346103a5d28e2484d037954bc85fea..695a5053b549eb563105fc85f72c702a5baec6e3 100644 (file)
--- 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