mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-17 00:30:37 -08:00
8861ee8b08
* lisp/emacs-lisp/comp.el (comp-emit-for-top-level): Synthesize 'top_level_run' so it returns the last value returned by `comp--register-subr'. * src/comp.c (load_comp_unit): Return what 'top_level_run' returns. (Fnative_elisp_load): Return what 'load_comp_unit' returns. * src/comp.h (load_comp_unit): Update signature.
103 lines
2.7 KiB
C
103 lines
2.7 KiB
C
/* Elisp native compiler definitions
|
|
Copyright (C) 2019-2020 Free Software Foundation, Inc.
|
|
|
|
This file is part of GNU Emacs.
|
|
|
|
GNU Emacs is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
GNU Emacs is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */
|
|
|
|
#ifndef COMP_H
|
|
#define COMP_H
|
|
|
|
/* To keep ifdefs under control. */
|
|
enum {
|
|
NATIVE_COMP_FLAG =
|
|
#ifdef HAVE_NATIVE_COMP
|
|
1
|
|
#else
|
|
0
|
|
#endif
|
|
};
|
|
|
|
#include <dynlib.h>
|
|
|
|
struct Lisp_Native_Comp_Unit
|
|
{
|
|
union vectorlike_header header;
|
|
/* Original eln file loaded. */
|
|
Lisp_Object file;
|
|
Lisp_Object optimize_qualities;
|
|
/* Guard anonymous lambdas against Garbage Collection and serve
|
|
sanity checks. */
|
|
Lisp_Object lambda_gc_guard_h;
|
|
/* Hash c_name -> d_reloc_imp index. */
|
|
Lisp_Object lambda_c_name_idx_h;
|
|
/* Hash doc-idx -> function documentaiton. */
|
|
Lisp_Object data_fdoc_v;
|
|
/* Analogous to the constant vector but per compilation unit. */
|
|
Lisp_Object data_vec;
|
|
/* 'data_impure_vec' must be last (see allocate_native_comp_unit).
|
|
Same as data_vec but for data that cannot be moved to pure space. */
|
|
Lisp_Object data_impure_vec;
|
|
/* STUFFS WE DO NOT DUMP!! */
|
|
Lisp_Object *data_imp_relocs;
|
|
bool loaded_once;
|
|
bool load_ongoing;
|
|
dynlib_handle_ptr handle;
|
|
} GCALIGNED_STRUCT;
|
|
|
|
#ifdef HAVE_NATIVE_COMP
|
|
|
|
INLINE bool
|
|
NATIVE_COMP_UNITP (Lisp_Object a)
|
|
{
|
|
return PSEUDOVECTORP (a, PVEC_NATIVE_COMP_UNIT);
|
|
}
|
|
|
|
INLINE struct Lisp_Native_Comp_Unit *
|
|
XNATIVE_COMP_UNIT (Lisp_Object a)
|
|
{
|
|
eassert (NATIVE_COMP_UNITP (a));
|
|
return XUNTAG (a, Lisp_Vectorlike, struct Lisp_Native_Comp_Unit);
|
|
}
|
|
|
|
/* Defined in comp.c. */
|
|
|
|
extern void hash_native_abi (void);
|
|
|
|
extern Lisp_Object load_comp_unit (struct Lisp_Native_Comp_Unit *comp_u,
|
|
bool loading_dump, bool late_load);
|
|
|
|
extern Lisp_Object native_function_doc (Lisp_Object function);
|
|
|
|
extern void syms_of_comp (void);
|
|
|
|
extern void maybe_defer_native_compilation (Lisp_Object function_name,
|
|
Lisp_Object definition);
|
|
|
|
extern void eln_load_path_final_clean_up (void);
|
|
|
|
extern void fixup_eln_load_path (Lisp_Object directory);
|
|
|
|
#else /* #ifdef HAVE_NATIVE_COMP */
|
|
|
|
static inline void
|
|
maybe_defer_native_compilation (Lisp_Object function_name,
|
|
Lisp_Object definition)
|
|
{}
|
|
|
|
extern void syms_of_comp (void);
|
|
|
|
#endif /* #ifdef HAVE_NATIVE_COMP */
|
|
|
|
#endif /* #ifndef COMP_H */
|