diff options
| author | Vibhav Pant <vibhavp@gmail.com> | 2017-01-18 22:40:50 +0530 |
|---|---|---|
| committer | Vibhav Pant <vibhavp@gmail.com> | 2017-01-18 22:40:50 +0530 |
| commit | 086c4eaf9d4ecc5074088115fa01c0b2fb061246 (patch) | |
| tree | f1adc695edfd5d790611e1b5db882e65f79d217e /src/bytecode.c | |
| parent | 37956463d67795819fe7d8fe02d6249388364783 (diff) | |
| download | emacs-086c4eaf9d4ecc5074088115fa01c0b2fb061246.tar.gz emacs-086c4eaf9d4ecc5074088115fa01c0b2fb061246.tar.bz2 emacs-086c4eaf9d4ecc5074088115fa01c0b2fb061246.zip | |
* src/bytecode.c: (exec_byte_code) Use hash_lookup for Bswitch
Fgethash type checks the provided table object, which is unnecessary
for compiled bytecode.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 1695af9cb02..fc434a2812f 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -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 */ |