mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source 
Noticed by Pip Cet.
This commit is contained in:
Mattias Engdegård 2024-07-27 13:38:57 +02:00
parent 829ebbd1d1
commit e5a9449117
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/data.c
View File

@ -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;
}