From: Mattias Engdegård <mattiase@acm.org>
Date: Sat, 27 Jul 2024 11:38:57 +0000 (+0200)
Subject: * src/data.c (arithcompare): Simplify fixnum/bignum comparisons.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b4e61b82ecc0e3194be764a89c29057a27678db;p=emacs.git

* src/data.c (arithcompare): Simplify fixnum/bignum comparisons.

Noticed by Pip Cet.

(cherry picked from commit e5a94491170bdde62c1afa19ec86e16a07429395)
---

diff --git a/src/data.c b/src/data.c
index b4d08a3ff06..40b5a42b65b 100644
--- a/src/data.c
+++ b/src/data.c
@@ -2768,7 +2768,8 @@ arithcompare (Lisp_Object num1, Lisp_Object num2)
       else
 	{
 	  int sgn = mpz_sgn (*xbignum_val (num2));
-	  eq = sgn == 0;
+	  eassume (sgn != 0);
+	  eq = false;
 	  lt = sgn > 0;
 	  gt = sgn < 0;
 	}
@@ -2789,7 +2790,8 @@ arithcompare (Lisp_Object num1, Lisp_Object num2)
   else if (FIXNUMP (num2))
     {
       int sgn = mpz_sgn (*xbignum_val (num1));
-      eq = sgn == 0;
+      eassume (sgn != 0);
+      eq = false;
       lt = sgn < 0;
       gt = sgn > 0;
     }