diff options
| author | Andrea Corallo <akrl@sdf.org> | 2019-12-07 18:19:00 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-01-01 11:38:12 +0100 |
| commit | a248dfe2c3341ed73de38c2feea64ec12f053aaa (patch) | |
| tree | 7b0f352051a5cfcfe889e4b8d654edfc68ba1a5e /src/comp.c | |
| parent | 48f5530e7922e4c46db1c4ab82b1c3532db724c9 (diff) | |
| download | emacs-a248dfe2c3341ed73de38c2feea64ec12f053aaa.tar.gz emacs-a248dfe2c3341ed73de38c2feea64ec12f053aaa.tar.bz2 emacs-a248dfe2c3341ed73de38c2feea64ec12f053aaa.zip | |
native compile interactive functions support
Diffstat (limited to 'src/comp.c')
| -rw-r--r-- | src/comp.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/comp.c b/src/comp.c index 5a00200ee87..a15bedf41aa 100644 --- a/src/comp.c +++ b/src/comp.c @@ -3304,11 +3304,11 @@ load_comp_unit (dynlib_handle_ptr handle, Lisp_Object file) DEFUN ("comp--register-subr", Fcomp__register_subr, Scomp__register_subr, - 5, 5, 0, + 6, 6, 0, doc: /* This gets called by top_level_run during load phase to register each exported subr. */) (Lisp_Object name, Lisp_Object minarg, Lisp_Object maxarg, - Lisp_Object c_name, Lisp_Object doc) + Lisp_Object c_name, Lisp_Object doc, Lisp_Object intspec) { dynlib_handle_ptr handle = xmint_pointer (XCAR (load_handle_stack)); if (!handle) @@ -3325,7 +3325,7 @@ DEFUN ("comp--register-subr", Fcomp__register_subr, x->s.min_args = XFIXNUM (minarg); x->s.max_args = FIXNUMP (maxarg) ? XFIXNUM (maxarg) : MANY; x->s.symbol_name = xstrdup (SSDATA (Fsymbol_name (name))); - x->s.intspec = NULL; + x->s.native_intspec = intspec; x->s.native_doc = doc; x->s.native_elisp = true; defsubr (x); |