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

; src/bytecode.c (exec_byte_code): Refactor byte-switch code.

Browse source 
Remove unnecessary asserts, remove duplicate code.
This commit is contained in:
Vibhav Pant 2017-02-11 20:36:30 +05:30
parent 7c2d493540
commit 245fb2529b
1 changed files with 13 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
src/bytecode.c
View file

@ -1431,29 +1431,22 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
{ /* 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);
for (i = 0; i < h->count; i++)
{
if (BYTE_CODE_SAFE)
eassert (!NILP (HASH_HASH (h, i)));
for (i = h->count; 0 <= --i;)
if (EQ (v1, HASH_KEY (h, i))
|| (h->test.cmpfn
&& hash_code == XUINT (HASH_HASH (h, i))
&& h->test.cmpfn (&h->test, v1, HASH_KEY (h, i))))
break;
if (EQ (v1, HASH_KEY (h, i))
|| (h->test.cmpfn
&& hash_code == XUINT (HASH_HASH (h, i))
&& h->test.cmpfn (&h->test, v1, HASH_KEY (h, i))))
{
op = XINT (HASH_VALUE (h, i));
goto op_branch;
}
}
}
else
{
i = hash_lookup(h, v1, NULL);
if (i >= 0) {
op = XINT(HASH_VALUE (h, i));
goto op_branch;
}
}
i = hash_lookup(h, v1, NULL);
if (i >= 0)
{
op = XINT (HASH_VALUE (h, i));
goto op_branch;
}
}
NEXT;