From: Robert Dewar <dewar@adacore.com>
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  <dewar@adacore.com>

	* 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