mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 07:11:34 -08:00
Code Issues Projects Releases Wiki Activity

* src/bytecode.c: (exec_byte_code) Use hash_lookup for Bswitch

Browse source 
Fgethash type checks the provided table object, which is unnecessary
for compiled bytecode.
This commit is contained in:
Vibhav Pant 2017-01-18 22:40:50 +05:30
parent 37956463d6
commit 086c4eaf9d
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/bytecode.c
View file

@ -1417,8 +1417,10 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
{
Lisp_Object jmp_table = POP;
Lisp_Object v1 = POP;
Lisp_Object dest = Fgethash(v1, jmp_table, Qnil);
if (!NILP(dest)) {
struct Lisp_Hash_Table *h = XHASH_TABLE(jmp_table);
ptrdiff_t i = hash_lookup(h, v1, NULL);
if (i >= 0) {
Lisp_Object dest = HASH_VALUE(h, i);
int car = XINT(XCAR(dest));
int cdr = XINT(XCDR(dest));
op = car + (cdr << 8); /* Simulate FETCH2 */