uintp.adb (UI_GCD): Fix potential overflow

2008-07-30 Robert Dewar <dewar@adacore.com> * uintp.adb (UI_GCD): Fix potential overflow From-SVN: r138323

uintp.adb (UI_GCD): Fix potential overflow
2008-07-30 Robert Dewar <dewar@adacore.com> * uintp.adb (UI_GCD): Fix potential overflow From-SVN: r138323
dc829590 · Robert Dewar · Arnaud Charlet · 6a4d72a6 · dc829590
Commit dc829590 authored Jul 30, 2008 by Robert Dewar Committed by Arnaud Charlet Jul 30, 2008
Hide whitespace changes
Inline Side-by-side

Showing with 1 additions and 1 deletions

gcc/ada/uintp.adb
+1 -1

No files found.
--- a/gcc/ada/uintp.adb
+++ b/gcc/ada/uintp.adb
@@ -1832,7 +1832,7 @@ package body Uintp is
            Den1 := V_Hat + C;
            Den2 := V_Hat + D;
-            exit when (Den1 * Den2) = Int_0;
+            exit when Den1 = Int_0 or else Den2 = Int_0;
            --  Compute Q, the trial quotient