aboutsummaryrefslogtreecommitdiffstats
path: root/src/emacs-module.c
diff options
context:
space:
mode:
authorPip Cet2021-05-16 15:44:26 +0200
committerStefan Monnier2022-07-01 18:59:35 -0400
commitb6a526361b57f8d9f6d5078ccd97832d0a1fb036 (patch)
tree0c752a1c74920a2b731bb2e3c2ff6623be240a72 /src/emacs-module.c
parent3daf833ff3f3e99b44731808cb197c0912649997 (diff)
downloademacs-scratch/no-purespace-old.tar.gz
emacs-scratch/no-purespace-old.zip
Remove purespace and ancillary codescratch/no-purespace-old
Now that purespace is not used any more, remove it, along with the functions used to allocate into it. Use equivalent functions allocating into the normal heap. Remove calls to PURE_P since they always return false. * src/puresize.h: Delete file. * src/alloc.c: Don't include `puresize.h` any more. (pure, purebeg, pure_size, pure_bytes_used_before_overflow) (pure_bytes_used_lisp, pure_bytes_used_non_lisp, symbol_block_pinned) (pinned_objects): Delete vars. (PUREBEG): Delete macro. (pointer_align): Move after definition of USE_ALIGNED_ALLOC and only define it if USE_ALIGNED_ALLOC is not used. (cons_listn): Remove `cons` arg, hardcode `Fcons` instead. (pure_listn, pure_alloc, check_pure_size, make_pure_string) (make_pure_c_string, pure_cons): Delete functions. (init_symbol): Don't set `pinned` any more. (mark_pinned_objects, mark_pinned_symbols): Delete functions. (garbage_collect): Don't call them any more. (init_alloc_once_for_pdumper): Don't initialize purebeg and pure_size. * src/print.c (print_object) <PVEC_HASH_TABLE>: Don't print `purecopy`. * src/pdumper.c (dump_symbol, dump_hash_table): Update sig hash. (dump_symbol): Don't dump `pinned`. (dump_hash_table): Don't dump `purecopy`. * src/lread.c (readevalloop, read_internal_start): Adjust call to `make_hash_table`. (read0, intern_c_string_1, define_symbol, Fintern): Don't purify symbol names. (string): Avoid `pure_cons` and `build_pure_c_string`. * src/lisp.h (struct Lisp_Symbol): Remove `pinned` field. (struct Lisp_Hash_Table): Remove `purecopy` field. (check_pure_size, pure_listn, pure_list, make_pure_string) (make_pure_c_string, pure_cons): Remove prototypes. (build_pure_c_string): Delete function. * src/keymap.c: Don't include `puresize.h` any more. (Fmake_sparse_keymap): Don't purecopy the menu name. (Fset_keymap_parent, store_in_keymap): Don't `CHECK_IMPURE` any more. (syms_of_keymap): Avoid `pure_cons` and `build_pure_c_string`. * src/intervals.c: Don't include `puresize.h` any more. (create_root_interval): Don't `CHECK_IMPURE` any more. * src/fns.c: Don't include `puresize.h` any more. (Ffillarray, Fclear_string): Don't `CHECK_IMPURE` any more. (make_hash_table): Remove `purecopy` arg. (Fmake_hash_table): Remove `:purecopy` keyword argument. * src/eval.c (Finternal__define_uninitialized_variable): Don't purecopy the doc any more. (Fdefconst_1): Don't purecopy the initvalue any more. (Fautoload): Get rid of hack needed when we used hash-consing. (syms_of_eval): Avoid `build_pure_c_string`. * src/emacs.c: Don't include `puresize.h` any more. (Fdump_emacs): Don't `check_pure_size`. * src/doc.c (Fsnarf_documentation): Don't purecopy the build files. * src/deps.mk: Remove puresize.h. * src/data.c: Don't include `puresize.h` any more. (pure_write_error): Delete function. (Fsetcar, Fsetcdr): Don't `CHECK_IMPURE` any more. (Fdefalias): Don't purecopy the definition any more. (Faset): Don't `CHECK_IMPURE` any more. (syms_of_data): Avoid `pure_cons` and `build_pure_c_string`. * src/conf_post.h (SYSTEM_PURESIZE_EXTRA): Delete macro. * src/comp.c: Don't include `puresize.h` any more. (helper_link_table): Remove `pure_write_error`. (define_CHECK_IMPURE): Delete function. (maybe_defer_native_compilation, syms_of_comp): Avoid `build_pure_c_string`. * src/category.c (hash_get_category_set): Update call to `make_hash_table`. (Fdefine_category): Don't purecopy the docstring any more. * src/bytecode.c: Don't include `puresize.h` any more. (Bsetcar, Bsetcdr): Don't `CHECK_IMPURE` any more. * doc/lispref/internals.texi (Pure Storage): Delete section. (Garbage Collection): Remove note about purespace overflow. * src/xfaces.c (syms_of_xfaces): * src/emacs-module.c (syms_of_module): * src/frame.c (make_frame, make_initial_frame): * src/fileio.c (syms_of_fileio): * src/image.c (xpm_make_color_table_h): * src/process.c (ADD_SUBFEATURE, syms_of_process): * src/profiler.c (make_log): * src/json.c (define_error): * src/xterm.c (syms_of_xterm): * src/xfns.c (syms_of_xfns): * src/xdisp.c (syms_of_xdisp): * src/w32fns.c (syms_of_w32fns): * src/syntax.c (syms_of_syntax): * src/sqlite.c (syms_of_sqlite): * src/search.c (syms_of_search): * src/keyboard.c (syms_of_keyboard): * src/fontset.c (syms_of_fontset): * src/dbusbind.c (syms_of_dbusbind): * src/coding.c (syms_of_coding): * src/callint.c (syms_of_callint): * src/buffer.c (init_buffer_once, syms_of_buffer): Avoid `build_pure_c_string`, `Fpurecopy`, `pure_cons`, and `pure_list`, and adjust calls to `make_hash_table`.
Diffstat (limited to 'src/emacs-module.c')
-rw-r--r--src/emacs-module.c28
1 files changed, 14 insertions, 14 deletions
diff --git a/src/emacs-module.c b/src/emacs-module.c
index 1c392d65df8..0b32eaf16b7 100644
--- a/src/emacs-module.c
+++ b/src/emacs-module.c
@@ -1598,44 +1598,44 @@ syms_of_module (void)
1598 Vmodule_refs_hash 1598 Vmodule_refs_hash
1599 = make_hash_table (hashtest_eq, DEFAULT_HASH_SIZE, 1599 = make_hash_table (hashtest_eq, DEFAULT_HASH_SIZE,
1600 DEFAULT_REHASH_SIZE, DEFAULT_REHASH_THRESHOLD, 1600 DEFAULT_REHASH_SIZE, DEFAULT_REHASH_THRESHOLD,
1601 Qnil, false); 1601 Qnil);
1602 1602
1603 DEFSYM (Qmodule_load_failed, "module-load-failed"); 1603 DEFSYM (Qmodule_load_failed, "module-load-failed");
1604 Fput (Qmodule_load_failed, Qerror_conditions, 1604 Fput (Qmodule_load_failed, Qerror_conditions,
1605 pure_list (Qmodule_load_failed, Qerror)); 1605 list (Qmodule_load_failed, Qerror));
1606 Fput (Qmodule_load_failed, Qerror_message, 1606 Fput (Qmodule_load_failed, Qerror_message,
1607 build_pure_c_string ("Module load failed")); 1607 build_string ("Module load failed"));
1608 1608
1609 DEFSYM (Qmodule_open_failed, "module-open-failed"); 1609 DEFSYM (Qmodule_open_failed, "module-open-failed");
1610 Fput (Qmodule_open_failed, Qerror_conditions, 1610 Fput (Qmodule_open_failed, Qerror_conditions,
1611 pure_list (Qmodule_open_failed, Qmodule_load_failed, Qerror)); 1611 list (Qmodule_open_failed, Qmodule_load_failed, Qerror));
1612 Fput (Qmodule_open_failed, Qerror_message, 1612 Fput (Qmodule_open_failed, Qerror_message,
1613 build_pure_c_string ("Module could not be opened")); 1613 build_string ("Module could not be opened"));
1614 1614
1615 DEFSYM (Qmodule_not_gpl_compatible, "module-not-gpl-compatible"); 1615 DEFSYM (Qmodule_not_gpl_compatible, "module-not-gpl-compatible");
1616 Fput (Qmodule_not_gpl_compatible, Qerror_conditions, 1616 Fput (Qmodule_not_gpl_compatible, Qerror_conditions,
1617 pure_list (Qmodule_not_gpl_compatible, Qmodule_load_failed, Qerror)); 1617 list (Qmodule_not_gpl_compatible, Qmodule_load_failed, Qerror));
1618 Fput (Qmodule_not_gpl_compatible, Qerror_message, 1618 Fput (Qmodule_not_gpl_compatible, Qerror_message,
1619 build_pure_c_string ("Module is not GPL compatible")); 1619 build_string ("Module is not GPL compatible"));
1620 1620
1621 DEFSYM (Qmissing_module_init_function, "missing-module-init-function"); 1621 DEFSYM (Qmissing_module_init_function, "missing-module-init-function");
1622 Fput (Qmissing_module_init_function, Qerror_conditions, 1622 Fput (Qmissing_module_init_function, Qerror_conditions,
1623 pure_list (Qmissing_module_init_function, Qmodule_load_failed, 1623 list (Qmissing_module_init_function, Qmodule_load_failed,
1624 Qerror)); 1624 Qerror));
1625 Fput (Qmissing_module_init_function, Qerror_message, 1625 Fput (Qmissing_module_init_function, Qerror_message,
1626 build_pure_c_string ("Module does not export an " 1626 build_string ("Module does not export an "
1627 "initialization function")); 1627 "initialization function"));
1628 1628
1629 DEFSYM (Qmodule_init_failed, "module-init-failed"); 1629 DEFSYM (Qmodule_init_failed, "module-init-failed");
1630 Fput (Qmodule_init_failed, Qerror_conditions, 1630 Fput (Qmodule_init_failed, Qerror_conditions,
1631 pure_list (Qmodule_init_failed, Qmodule_load_failed, Qerror)); 1631 list (Qmodule_init_failed, Qmodule_load_failed, Qerror));
1632 Fput (Qmodule_init_failed, Qerror_message, 1632 Fput (Qmodule_init_failed, Qerror_message,
1633 build_pure_c_string ("Module initialization failed")); 1633 build_string ("Module initialization failed"));
1634 1634
1635 DEFSYM (Qinvalid_arity, "invalid-arity"); 1635 DEFSYM (Qinvalid_arity, "invalid-arity");
1636 Fput (Qinvalid_arity, Qerror_conditions, pure_list (Qinvalid_arity, Qerror)); 1636 Fput (Qinvalid_arity, Qerror_conditions, list (Qinvalid_arity, Qerror));
1637 Fput (Qinvalid_arity, Qerror_message, 1637 Fput (Qinvalid_arity, Qerror_message,
1638 build_pure_c_string ("Invalid function arity")); 1638 build_string ("Invalid function arity"));
1639 1639
1640 DEFSYM (Qmodule_function_p, "module-function-p"); 1640 DEFSYM (Qmodule_function_p, "module-function-p");
1641 DEFSYM (Qunicode_string_p, "unicode-string-p"); 1641 DEFSYM (Qunicode_string_p, "unicode-string-p");