diff options
| author | Tom Tromey | 2018-07-08 09:36:37 -0600 |
|---|---|---|
| committer | Tom Tromey | 2018-07-12 22:12:28 -0600 |
| commit | e2a78b0d6d844f29acaaddd775c7b1cd6dec7af8 (patch) | |
| tree | d8dcd1bac51c66f828cbd0f980ab1d206626491e /lisp | |
| parent | 45eb3b3513619d97d046a8efbe0d16fafc75a734 (diff) | |
| download | emacs-e2a78b0d6d844f29acaaddd775c7b1cd6dec7af8.tar.gz emacs-e2a78b0d6d844f29acaaddd775c7b1cd6dec7af8.zip | |
Bignum fixes for byte-compiler and bytecode interpreter
* lisp/emacs-lisp/byte-opt.el: Mark bignump and fixnump as
side-effect-and-error-free-fns.
* src/bytecode.c (exec_byte_code): Handle bignums.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 5c0b5e340bb..1920503b8c4 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el | |||
| @@ -1195,14 +1195,14 @@ | |||
| 1195 | window-width zerop)) | 1195 | window-width zerop)) |
| 1196 | (side-effect-and-error-free-fns | 1196 | (side-effect-and-error-free-fns |
| 1197 | '(arrayp atom | 1197 | '(arrayp atom |
| 1198 | bobp bolp bool-vector-p | 1198 | bignump bobp bolp bool-vector-p |
| 1199 | buffer-end buffer-list buffer-size buffer-string bufferp | 1199 | buffer-end buffer-list buffer-size buffer-string bufferp |
| 1200 | car-safe case-table-p cdr-safe char-or-string-p characterp | 1200 | car-safe case-table-p cdr-safe char-or-string-p characterp |
| 1201 | charsetp commandp cons consp | 1201 | charsetp commandp cons consp |
| 1202 | current-buffer current-global-map current-indentation | 1202 | current-buffer current-global-map current-indentation |
| 1203 | current-local-map current-minor-mode-maps current-time | 1203 | current-local-map current-minor-mode-maps current-time |
| 1204 | eobp eolp eq equal eventp | 1204 | eobp eolp eq equal eventp |
| 1205 | floatp following-char framep | 1205 | fixnump floatp following-char framep |
| 1206 | get-largest-window get-lru-window | 1206 | get-largest-window get-lru-window |
| 1207 | hash-table-p | 1207 | hash-table-p |
| 1208 | identity ignore integerp integer-or-marker-p interactive-p | 1208 | identity ignore integerp integer-or-marker-p interactive-p |