From nobody Thu May  8 01:13:40 2025
Delivered-To: importer@patchew.org
Authentication-Results: mx.zohomail.com;
	dkim=pass;
	spf=pass (zohomail.com: domain of gnu.org designates 209.51.188.17 as
 permitted sender)
  smtp.mailfrom=qemu-devel-bounces+importer=patchew.org@nongnu.org;
	dmarc=pass(p=none dis=none)  header.from=linaro.org
ARC-Seal: i=1; a=rsa-sha256; t=1635389839; cv=none;
	d=zohomail.com; s=zohoarc;
	b=YvK3zINyoaRnTeHepTN/5VOs1POrFTB4z/v8RtE5FejHVyBtRjPyo4L1Fm51KfhFZsQ2fWmDRumJ3WjA3rFR8oFLRAf7AJbkp1VIX3KMmnw1VFu18+H/Li8jcf3ubuFVMiAAJsckwyuQH0R+Qn8q0d9fquW2xVaLe2kmW9YkULs=
ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=zohomail.com;
 s=zohoarc;
	t=1635389839;
 h=Content-Transfer-Encoding:Cc:Date:From:In-Reply-To:List-Subscribe:List-Post:List-Id:List-Archive:List-Help:List-Unsubscribe:MIME-Version:Message-ID:References:Sender:Subject:To;
	bh=yA37LSgyZgUZ7Jnk9oYQugiaR4/N0x8exHl3zm53CZM=;
	b=OoAgOYT2UqpvXWQHdLtqRRvpJySYWRbEa0VBLSyCHIC11DAmkCRd3+gYiuR0nFqgHtJgO8DxwQnwuWtvaCDQCSPeRJkTnCCYMF8hhboeOdN7H7H4d/uvtQe0PWy79fzw8BalQV1WtApt6cYEmDcHNvcvmYXSkVy5ubAsg6OdJZo=
ARC-Authentication-Results: i=1; mx.zohomail.com;
	dkim=pass;
	spf=pass (zohomail.com: domain of gnu.org designates 209.51.188.17 as
 permitted sender)
  smtp.mailfrom=qemu-devel-bounces+importer=patchew.org@nongnu.org;
	dmarc=pass header.from=<richard.henderson@linaro.org> (p=none dis=none)
Return-Path: <qemu-devel-bounces+importer=patchew.org@nongnu.org>
Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by
 mx.zohomail.com
	with SMTPS id 163538983923632.5972137927356;
 Wed, 27 Oct 2021 19:57:19 -0700 (PDT)
Received: from localhost ([::1]:50094 helo=lists1p.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.90_1)
	(envelope-from <qemu-devel-bounces+importer=patchew.org@nongnu.org>)
	id 1mfvbS-0003Mv-5c
	for importer@patchew.org; Wed, 27 Oct 2021 22:57:18 -0400
Received: from eggs.gnu.org ([2001:470:142:3::10]:58744)
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <richard.henderson@linaro.org>)
 id 1mfvMJ-0004UC-1Y
 for qemu-devel@nongnu.org; Wed, 27 Oct 2021 22:41:39 -0400
Received: from mail-pg1-x52a.google.com ([2607:f8b0:4864:20::52a]:39669)
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128)
 (Exim 4.90_1) (envelope-from <richard.henderson@linaro.org>)
 id 1mfvMG-000348-Fr
 for qemu-devel@nongnu.org; Wed, 27 Oct 2021 22:41:38 -0400
Received: by mail-pg1-x52a.google.com with SMTP id g184so4924936pgc.6
 for <qemu-devel@nongnu.org>; Wed, 27 Oct 2021 19:41:36 -0700 (PDT)
Received: from localhost.localdomain ([71.212.134.125])
 by smtp.gmail.com with ESMTPSA id c25sm1218824pfn.159.2021.10.27.19.41.34
 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256);
 Wed, 27 Oct 2021 19:41:34 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=linaro.org; s=google;
 h=from:to:cc:subject:date:message-id:in-reply-to:references
 :mime-version:content-transfer-encoding;
 bh=yA37LSgyZgUZ7Jnk9oYQugiaR4/N0x8exHl3zm53CZM=;
 b=t68ZXjXYViMx9IKddwE0NsljKsCtVUi+ZlEEypoFg3UgicurlcEVHa+Mp1MHkUYb28
 nqY4yqdLIeAFaUWK2WkcLSboyllUxtRdEqOyhOxCcTpLdNAvbBRBp9WpxkgO5dil6c/K
 SFvZtxlJu72KC3olRfXzEd9/w8tsdSfNjRdk5muDnwbtGCYJ/l4ZHjISUwUUqu9KOSap
 WeAITIU+53wMey5LCzdeL6p4qjQzbh/xx3g99wcA2IAfTWUitcwb5Q/cMpeWKcse1f5V
 yBB2gr9HukmClGS0MrMxD7Vb8w7iWWfynzvQ3ylewBvDH0iEYxnuEF4b/yQi7JaOe4/p
 TLUg==
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=1e100.net; s=20210112;
 h=x-gm-message-state:from:to:cc:subject:date:message-id:in-reply-to
 :references:mime-version:content-transfer-encoding;
 bh=yA37LSgyZgUZ7Jnk9oYQugiaR4/N0x8exHl3zm53CZM=;
 b=Q7B+C3LoqIG5A9yGQtW7dyZXHxSxucwoykbVn3vMNXcnL/mAs84cUtTLjVrOcZFpOx
 Q+PCkhf7hx+JTK7wkbVNvxuB8dHQgLB0ArHckPP8R8BXQXNuYj+Mw+WGP2prNvfVHp6W
 7gSY3NnW5baYRogmvqPQknh7qvoEu7t1YuHMvWt/oc6Ag+CUEkRZAiTnptRWQ7GNLtYk
 lqYf77uSkBOEkIpTnGGcUC4Ho5qEnRbM4nJkgvyAZ3iPI4LFYGuRH0483siYzwPV1znM
 ROqwpKRjMuJ2Xug3q0nnzLGuvq6YUMLLP+p+WSB5J9agjAkVeOFNdymo+Kx9vZzQ//0e
 35sw==
X-Gm-Message-State: AOAM531+HO5jAnVjGmaRnKIASEqZL58KRjmP36Vcn6ewR42H6y6usxdQ
 9ZVxjdEG2CZOICU6qx0A+Klkts7sNNTCDw==
X-Google-Smtp-Source: 
 ABdhPJzzse17aJ7OakpDZU+bQ2xoklLSb8G5OjepM/7tF6H29VzbtXducD8j8hDxkTNXyc00A3ge4A==
X-Received: by 2002:a62:80cb:0:b0:47c:1d1c:b763 with SMTP id
 j194-20020a6280cb000000b0047c1d1cb763mr1507171pfd.62.1635388895002;
 Wed, 27 Oct 2021 19:41:35 -0700 (PDT)
From: Richard Henderson <richard.henderson@linaro.org>
To: qemu-devel@nongnu.org
Subject: [PULL 04/56] host-utils: add 128-bit quotient support to
 divu128/divs128
Date: Wed, 27 Oct 2021 19:40:39 -0700
Message-Id: <20211028024131.1492790-5-richard.henderson@linaro.org>
X-Mailer: git-send-email 2.25.1
In-Reply-To: <20211028024131.1492790-1-richard.henderson@linaro.org>
References: <20211028024131.1492790-1-richard.henderson@linaro.org>
MIME-Version: 1.0
Content-Transfer-Encoding: quoted-printable
Received-SPF: pass (zohomail.com: domain of gnu.org designates 209.51.188.17
 as permitted sender) client-ip=209.51.188.17;
 envelope-from=qemu-devel-bounces+importer=patchew.org@nongnu.org;
 helo=lists.gnu.org;
Received-SPF: pass client-ip=2607:f8b0:4864:20::52a;
 envelope-from=richard.henderson@linaro.org; helo=mail-pg1-x52a.google.com
X-Spam_score_int: -20
X-Spam_score: -2.1
X-Spam_bar: --
X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1,
 DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1,
 RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001,
 SPF_PASS=-0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-BeenThere: qemu-devel@nongnu.org
X-Mailman-Version: 2.1.23
Precedence: list
List-Id: <qemu-devel.nongnu.org>
List-Unsubscribe: <https://lists.nongnu.org/mailman/options/qemu-devel>,
 <mailto:qemu-devel-request@nongnu.org?subject=unsubscribe>
List-Archive: <https://lists.nongnu.org/archive/html/qemu-devel>
List-Post: <mailto:qemu-devel@nongnu.org>
List-Help: <mailto:qemu-devel-request@nongnu.org?subject=help>
List-Subscribe: <https://lists.nongnu.org/mailman/listinfo/qemu-devel>,
 <mailto:qemu-devel-request@nongnu.org?subject=subscribe>
Cc: Luis Pires <luis.pires@eldorado.org.br>
Errors-To: qemu-devel-bounces+importer=patchew.org@nongnu.org
Sender: "Qemu-devel" <qemu-devel-bounces+importer=patchew.org@nongnu.org>
X-ZohoMail-DKIM: pass (identity @linaro.org)
X-ZM-MESSAGEID: 1635389839834100001
Content-Type: text/plain; charset="utf-8"

From: Luis Pires <luis.pires@eldorado.org.br>

These will be used to implement new decimal floating point
instructions from Power ISA 3.1.

The remainder is now returned directly by divu128/divs128,
freeing up phigh to receive the high 64 bits of the quotient.

Signed-off-by: Luis Pires <luis.pires@eldorado.org.br>
Reviewed-by: Richard Henderson <richard.henderson@linaro.org>
Message-Id: <20211025191154.350831-4-luis.pires@eldorado.org.br>
Signed-off-by: Richard Henderson <richard.henderson@linaro.org>
---
 include/hw/clock.h        |   6 +-
 include/qemu/host-utils.h |  20 ++++--
 target/ppc/int_helper.c   |   9 +--
 util/host-utils.c         | 133 +++++++++++++++++++++++++-------------
 4 files changed, 108 insertions(+), 60 deletions(-)

diff --git a/include/hw/clock.h b/include/hw/clock.h
index 7443e6c4ab..5c927cee7f 100644
--- a/include/hw/clock.h
+++ b/include/hw/clock.h
@@ -323,11 +323,7 @@ static inline uint64_t clock_ns_to_ticks(const Clock *=
clk, uint64_t ns)
     if (clk->period =3D=3D 0) {
         return 0;
     }
-    /*
-     * BUG: when CONFIG_INT128 is not defined, the current implementation =
of
-     * divu128 does not return a valid truncated quotient, so the result w=
ill
-     * be wrong.
-     */
+
     divu128(&lo, &hi, clk->period);
     return lo;
 }
diff --git a/include/qemu/host-utils.h b/include/qemu/host-utils.h
index 08a17e16e5..a3a7ced78d 100644
--- a/include/qemu/host-utils.h
+++ b/include/qemu/host-utils.h
@@ -56,26 +56,32 @@ static inline uint64_t muldiv64(uint64_t a, uint32_t b,=
 uint32_t c)
     return (__int128_t)a * b / c;
 }
=20
-static inline void divu128(uint64_t *plow, uint64_t *phigh, uint64_t divis=
or)
+static inline uint64_t divu128(uint64_t *plow, uint64_t *phigh,
+                               uint64_t divisor)
 {
     __uint128_t dividend =3D ((__uint128_t)*phigh << 64) | *plow;
     __uint128_t result =3D dividend / divisor;
+
     *plow =3D result;
-    *phigh =3D dividend % divisor;
+    *phigh =3D result >> 64;
+    return dividend % divisor;
 }
=20
-static inline void divs128(int64_t *plow, int64_t *phigh, int64_t divisor)
+static inline int64_t divs128(uint64_t *plow, int64_t *phigh,
+                              int64_t divisor)
 {
-    __int128_t dividend =3D ((__int128_t)*phigh << 64) | (uint64_t)*plow;
+    __int128_t dividend =3D ((__int128_t)*phigh << 64) | *plow;
     __int128_t result =3D dividend / divisor;
+
     *plow =3D result;
-    *phigh =3D dividend % divisor;
+    *phigh =3D result >> 64;
+    return dividend % divisor;
 }
 #else
 void muls64(uint64_t *plow, uint64_t *phigh, int64_t a, int64_t b);
 void mulu64(uint64_t *plow, uint64_t *phigh, uint64_t a, uint64_t b);
-void divu128(uint64_t *plow, uint64_t *phigh, uint64_t divisor);
-void divs128(int64_t *plow, int64_t *phigh, int64_t divisor);
+uint64_t divu128(uint64_t *plow, uint64_t *phigh, uint64_t divisor);
+int64_t divs128(uint64_t *plow, int64_t *phigh, int64_t divisor);
=20
 static inline uint64_t muldiv64(uint64_t a, uint32_t b, uint32_t c)
 {
diff --git a/target/ppc/int_helper.c b/target/ppc/int_helper.c
index 510faf24cf..eeb7781a9e 100644
--- a/target/ppc/int_helper.c
+++ b/target/ppc/int_helper.c
@@ -120,7 +120,7 @@ uint64_t helper_divdeu(CPUPPCState *env, uint64_t ra, u=
int64_t rb, uint32_t oe)
=20
 uint64_t helper_divde(CPUPPCState *env, uint64_t rau, uint64_t rbu, uint32=
_t oe)
 {
-    int64_t rt =3D 0;
+    uint64_t rt =3D 0;
     int64_t ra =3D (int64_t)rau;
     int64_t rb =3D (int64_t)rbu;
     int overflow =3D 0;
@@ -2506,6 +2506,7 @@ uint32_t helper_bcdcfsq(ppc_avr_t *r, ppc_avr_t *b, u=
int32_t ps)
     int cr;
     uint64_t lo_value;
     uint64_t hi_value;
+    uint64_t rem;
     ppc_avr_t ret =3D { .u64 =3D { 0, 0 } };
=20
     if (b->VsrSD(0) < 0) {
@@ -2541,10 +2542,10 @@ uint32_t helper_bcdcfsq(ppc_avr_t *r, ppc_avr_t *b,=
 uint32_t ps)
          * In that case, we leave r unchanged.
          */
     } else {
-        divu128(&lo_value, &hi_value, 1000000000000000ULL);
+        rem =3D divu128(&lo_value, &hi_value, 1000000000000000ULL);
=20
-        for (i =3D 1; i < 16; hi_value /=3D 10, i++) {
-            bcd_put_digit(&ret, hi_value % 10, i);
+        for (i =3D 1; i < 16; rem /=3D 10, i++) {
+            bcd_put_digit(&ret, rem % 10, i);
         }
=20
         for (; i < 32; lo_value /=3D 10, i++) {
diff --git a/util/host-utils.c b/util/host-utils.c
index 701a371843..bcc772b8ec 100644
--- a/util/host-utils.c
+++ b/util/host-utils.c
@@ -87,72 +87,117 @@ void muls64 (uint64_t *plow, uint64_t *phigh, int64_t =
a, int64_t b)
 }
=20
 /*
- * Unsigned 128-by-64 division. Returns quotient via plow and
- * remainder via phigh.
- * The result must fit in 64 bits (plow) - otherwise, the result
- * is undefined.
- * This function will cause a division by zero if passed a zero divisor.
+ * Unsigned 128-by-64 division.
+ * Returns the remainder.
+ * Returns quotient via plow and phigh.
+ * Also returns the remainder via the function return value.
  */
-void divu128(uint64_t *plow, uint64_t *phigh, uint64_t divisor)
+uint64_t divu128(uint64_t *plow, uint64_t *phigh, uint64_t divisor)
 {
     uint64_t dhi =3D *phigh;
     uint64_t dlo =3D *plow;
-    unsigned i;
-    uint64_t carry =3D 0;
+    uint64_t rem, dhighest;
+    int sh;
=20
     if (divisor =3D=3D 0 || dhi =3D=3D 0) {
         *plow  =3D dlo / divisor;
-        *phigh =3D dlo % divisor;
+        *phigh =3D 0;
+        return dlo % divisor;
     } else {
+        sh =3D clz64(divisor);
=20
-        for (i =3D 0; i < 64; i++) {
-            carry =3D dhi >> 63;
-            dhi =3D (dhi << 1) | (dlo >> 63);
-            if (carry || (dhi >=3D divisor)) {
-                dhi -=3D divisor;
-                carry =3D 1;
-            } else {
-                carry =3D 0;
+        if (dhi < divisor) {
+            if (sh !=3D 0) {
+                /* normalize the divisor, shifting the dividend accordingl=
y */
+                divisor <<=3D sh;
+                dhi =3D (dhi << sh) | (dlo >> (64 - sh));
+                dlo <<=3D sh;
             }
-            dlo =3D (dlo << 1) | carry;
+
+            *phigh =3D 0;
+            *plow =3D udiv_qrnnd(&rem, dhi, dlo, divisor);
+        } else {
+            if (sh !=3D 0) {
+                /* normalize the divisor, shifting the dividend accordingl=
y */
+                divisor <<=3D sh;
+                dhighest =3D dhi >> (64 - sh);
+                dhi =3D (dhi << sh) | (dlo >> (64 - sh));
+                dlo <<=3D sh;
+
+                *phigh =3D udiv_qrnnd(&dhi, dhighest, dhi, divisor);
+            } else {
+                /**
+                 * dhi >=3D divisor
+                 * Since the MSB of divisor is set (sh =3D=3D 0),
+                 * (dhi - divisor) < divisor
+                 *
+                 * Thus, the high part of the quotient is 1, and we can
+                 * calculate the low part with a single call to udiv_qrnnd
+                 * after subtracting divisor from dhi
+                 */
+                dhi -=3D divisor;
+                *phigh =3D 1;
+            }
+
+            *plow =3D udiv_qrnnd(&rem, dhi, dlo, divisor);
         }
=20
-        *plow =3D dlo;
-        *phigh =3D dhi;
+        /*
+         * since the dividend/divisor might have been normalized,
+         * the remainder might also have to be shifted back
+         */
+        return rem >> sh;
     }
 }
=20
 /*
- * Signed 128-by-64 division. Returns quotient via plow and
- * remainder via phigh.
- * The result must fit in 64 bits (plow) - otherwise, the result
- * is undefined.
- * This function will cause a division by zero if passed a zero divisor.
+ * Signed 128-by-64 division.
+ * Returns quotient via plow and phigh.
+ * Also returns the remainder via the function return value.
  */
-void divs128(int64_t *plow, int64_t *phigh, int64_t divisor)
+int64_t divs128(uint64_t *plow, int64_t *phigh, int64_t divisor)
 {
-    int sgn_dvdnd =3D *phigh < 0;
-    int sgn_divsr =3D divisor < 0;
+    bool neg_quotient =3D false, neg_remainder =3D false;
+    uint64_t unsig_hi =3D *phigh, unsig_lo =3D *plow;
+    uint64_t rem;
=20
-    if (sgn_dvdnd) {
-        *plow =3D ~(*plow);
-        *phigh =3D ~(*phigh);
-        if (*plow =3D=3D (int64_t)-1) {
+    if (*phigh < 0) {
+        neg_quotient =3D !neg_quotient;
+        neg_remainder =3D !neg_remainder;
+
+        if (unsig_lo =3D=3D 0) {
+            unsig_hi =3D -unsig_hi;
+        } else {
+            unsig_hi =3D ~unsig_hi;
+            unsig_lo =3D -unsig_lo;
+        }
+    }
+
+    if (divisor < 0) {
+        neg_quotient =3D !neg_quotient;
+
+        divisor =3D -divisor;
+    }
+
+    rem =3D divu128(&unsig_lo, &unsig_hi, (uint64_t)divisor);
+
+    if (neg_quotient) {
+        if (unsig_lo =3D=3D 0) {
+            *phigh =3D -unsig_hi;
             *plow =3D 0;
-            (*phigh)++;
-         } else {
-            (*plow)++;
-         }
+        } else {
+            *phigh =3D ~unsig_hi;
+            *plow =3D -unsig_lo;
+        }
+    } else {
+        *phigh =3D unsig_hi;
+        *plow =3D unsig_lo;
     }
=20
-    if (sgn_divsr) {
-        divisor =3D 0 - divisor;
-    }
-
-    divu128((uint64_t *)plow, (uint64_t *)phigh, (uint64_t)divisor);
-
-    if (sgn_dvdnd  ^ sgn_divsr) {
-        *plow =3D 0 - *plow;
+    if (neg_remainder) {
+        return -rem;
+    } else {
+        return rem;
     }
 }
 #endif
--=20
2.25.1