1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
| | /* 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;
/* Hash doc-idx -> function documentaiton. */
Lisp_Object data_fdoc_v;
/* Analogous to the constant vector but per compilation unit. */
Lisp_Object data_vec;
/* Same but for data that cannot be moved to pure space.
Must be the last lisp object here. */
Lisp_Object data_impure_vec;
dynlib_handle_ptr handle;
#ifdef WINDOWSNT
/* We need to store a copy of the original file name in memory that
is not subject to GC because the function to dispose native
compilation units is called by the GC. By that time the `file'
string may have been sweeped. */
char * cfile;
#endif
};
#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 void 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 dispose_comp_unit (struct Lisp_Native_Comp_Unit * comp_unit, bool delay);
extern void finish_delayed_disposal_of_comp_units (void);
extern void dispose_all_remaining_comp_units (void);
extern void clean_package_user_dir_of_old_comp_units (void);
#else
static inline void
maybe_defer_native_compilation (Lisp_Object function_name,
Lisp_Object definition)
{}
extern void syms_of_comp (void);
static inline void dispose_comp_unit (struct Lisp_Native_Comp_Unit * comp_handle)
{
emacs_abort();
}
static inline void dispose_all_remaining_comp_units (void)
{}
static inline void clean_package_user_dir_of_old_comp_units (void)
{}
#endif
#endif
|