procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

src/bytecode.c (exec_byte_code): Make hash_code a Lisp_Object.

Browse source 
This avoids using XUINT every time while comparing it with
HASH_HASH (h, i), replacing it with EQ.
This commit is contained in:
Vibhav Pant 2017-02-11 23:41:56 +05:30
parent a35335c767
commit e27351e5dd
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/bytecode.c
View file

@ -1428,11 +1428,13 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
if (h->count <= 5)
{ /* Do a linear search if there are not many cases
FIXME: 5 is arbitrarily chosen. */
EMACS_UINT hash_code = h->test.hashfn (&h->test, v1);
Lisp_Object hash_code = h->test.cmpfn
? make_number(h->test.hashfn (&h->test, v1)) : Qnil;
for (i = h->count; 0 <= --i;)
if (EQ (v1, HASH_KEY (h, i))
|| (h->test.cmpfn
&& hash_code == XUINT (HASH_HASH (h, i))
&& EQ (hash_code, HASH_HASH (h, i))
&& h->test.cmpfn (&h->test, v1, HASH_KEY (h, i))))
break;