From: Robert Dewar Date: Wed, 30 Jul 2008 15:53:08 +0000 (+0200) Subject: uintp.adb (UI_GCD): Fix potential overflow X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=dc829590914f5ae29de5f246319f5c37127c8ccd;p=gcc.git uintp.adb (UI_GCD): Fix potential overflow 2008-07-30 Robert Dewar * uintp.adb (UI_GCD): Fix potential overflow From-SVN: r138323 --- diff --git a/gcc/ada/uintp.adb b/gcc/ada/uintp.adb index 416d5d88681..b1f05993608 100644 --- 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