diff options
| author | Andrea Corallo <akrl@sdf.org> | 2019-12-22 09:28:39 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-01-01 11:38:14 +0100 |
| commit | b275ddd63a24b15dd8f90ea0c4f27341a8dfa977 (patch) | |
| tree | 7454035f4c6a1bb0d41dcbb562a7bfa63acda785 /src/lisp.h | |
| parent | 5ecb71c1e65038b79933c06e1c0303b3e58ef4b5 (diff) | |
| download | emacs-b275ddd63a24b15dd8f90ea0c4f27341a8dfa977.tar.gz emacs-b275ddd63a24b15dd8f90ea0c4f27341a8dfa977.tar.bz2 emacs-b275ddd63a24b15dd8f90ea0c4f27341a8dfa977.zip | |
rationalize load functions
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/src/lisp.h b/src/lisp.h index 81ccae5683f..3c3a9e22cf3 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -4769,17 +4769,11 @@ SUBRP_NATIVE_COMPILEDP (Lisp_Object a) return SUBRP (a) && XSUBR (a)->native_comp_u; } -INLINE Lisp_Object -make_native_comp_u (int fd, dynlib_handle_ptr handle) -{ - struct Lisp_Native_Comp_Unit *x = - ALLOCATE_ZEROED_PSEUDOVECTOR (struct Lisp_Native_Comp_Unit, data_vec, - PVEC_NATIVE_COMP_UNIT); - x->fd = fd; - x->handle = handle; - Lisp_Object cu; - XSETNATIVE_COMP_UNIT (cu, x); - return cu; +INLINE struct Lisp_Native_Comp_Unit * +allocate_native_comp_unit (void) +{ + return ALLOCATE_ZEROED_PSEUDOVECTOR (struct Lisp_Native_Comp_Unit, data_vec, + PVEC_NATIVE_COMP_UNIT); } #endif |