diff options
| author | Pip Cet <pipcet@protonmail.com> | 2024-08-20 19:04:44 +0000 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2024-12-12 22:48:12 +0100 |
| commit | afd61deaaeb5e5e6845bdf995ac5ee9a3479599c (patch) | |
| tree | a13e37e2a5ad40374959fe263ebb4e2a8a484ed2 /lisp/emacs-lisp | |
| parent | e1e101c6c10b6e5110c2c47946d477a752828a78 (diff) | |
| download | emacs-afd61deaaeb5e5e6845bdf995ac5ee9a3479599c.tar.gz emacs-afd61deaaeb5e5e6845bdf995ac5ee9a3479599c.tar.bz2 emacs-afd61deaaeb5e5e6845bdf995ac5ee9a3479599c.zip | |
Pure storage removal: Remove purecopy hash table flag
* lisp/emacs-liqsp/comp.el (comp--jump-table-optimizable): Adjust
comment.
* src/category.c (hash_get_category_set):
* src/emacs-module.c (syms_of_module):
* src/fns.c (make_hash_table): Remove 'purecopy' flag and update
docstring.
(Fmake_hash_table): Ignore ':purecopy' argument.
* src/frame.c (make_frame):
* src/image.c (xpm_make_color_table_h):
* src/lisp.h (struct Lisp_Hash_Table): Drop 'purecopy' flag.
* src/pdumper.c (dump_hash_table): Don't dump 'purecopy' flag.
* src/print.c (print_object): Don't print 'purecopy' flag
* src/json.c (json_parse_object):
* src/lread.c (readevalloop, read_internal_start):
* src/pgtkterm.c (syms_of_pgtkterm):
* src/profiler.c (export_log):
* src/xfaces.c (syms_of_xfaces):
* src/xterm.c (syms_of_xterm): Adjust calls to 'make_hash_table'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 2966ed255ac..aea38c60d41 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -1190,7 +1190,7 @@ Return value is the fall-through block name." (defun comp--jump-table-optimizable (jmp-table) "Return t if JMP-TABLE can be optimized out." ;; Identify LAP sequences like: - ;; (byte-constant #s(hash-table test eq purecopy t data (created 126 deleted 126 changed 126)) . 24) + ;; (byte-constant #s(hash-table test eq data (created 126 deleted 126 changed 126)) . 24) ;; (byte-switch) ;; (TAG 126 . 10) (let ((targets (hash-table-values jmp-table))) |