diff options
| author | Mattias EngdegÄrd | 2022-01-18 15:09:44 +0100 |
|---|---|---|
| committer | Mattias EngdegÄrd | 2022-01-18 15:18:17 +0100 |
| commit | 26d97dcae90fff210ad50077f17967b848af4849 (patch) | |
| tree | c9d8c868c7bcc4b4b2935a726f02fc54177c2a28 | |
| parent | c5b9e999d49d32395b74b18ce106b114bc205c8c (diff) | |
| download | emacs-scratch/bytecode-speedup.tar.gz emacs-scratch/bytecode-speedup.zip | |
; * src/bytecode.c (exec_byte_code): better variable namingscratch/bytecode-speedup
| -rw-r--r-- | src/bytecode.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 0bca2546f7f..3593bb94744 100644 --- a/src/bytecode.c +++ b/src/bytecode.c | |||
| @@ -1434,23 +1434,23 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, | |||
| 1434 | 1434 | ||
| 1435 | CASE (Bsetcar): | 1435 | CASE (Bsetcar): |
| 1436 | { | 1436 | { |
| 1437 | Lisp_Object newcar = POP; | 1437 | Lisp_Object newval = POP; |
| 1438 | Lisp_Object cell = TOP; | 1438 | Lisp_Object cell = TOP; |
| 1439 | CHECK_CONS (cell); | 1439 | CHECK_CONS (cell); |
| 1440 | CHECK_IMPURE (cell, XCONS (cell)); | 1440 | CHECK_IMPURE (cell, XCONS (cell)); |
| 1441 | XSETCAR (cell, newcar); | 1441 | XSETCAR (cell, newval); |
| 1442 | TOP = newcar; | 1442 | TOP = newval; |
| 1443 | NEXT; | 1443 | NEXT; |
| 1444 | } | 1444 | } |
| 1445 | 1445 | ||
| 1446 | CASE (Bsetcdr): | 1446 | CASE (Bsetcdr): |
| 1447 | { | 1447 | { |
| 1448 | Lisp_Object newcar = POP; | 1448 | Lisp_Object newval = POP; |
| 1449 | Lisp_Object cell = TOP; | 1449 | Lisp_Object cell = TOP; |
| 1450 | CHECK_CONS (cell); | 1450 | CHECK_CONS (cell); |
| 1451 | CHECK_IMPURE (cell, XCONS (cell)); | 1451 | CHECK_IMPURE (cell, XCONS (cell)); |
| 1452 | XSETCDR (cell, newcar); | 1452 | XSETCDR (cell, newval); |
| 1453 | TOP = newcar; | 1453 | TOP = newval; |
| 1454 | NEXT; | 1454 | NEXT; |
| 1455 | } | 1455 | } |
| 1456 | 1456 | ||