diff options
| author | Andrea Corallo <akrl@sdf.org> | 2019-12-23 14:27:55 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-01-01 11:38:15 +0100 |
| commit | 8b1d9b8e5ed8035bd2f42517bb6bc3c8a6d6f0ae (patch) | |
| tree | 676f8ec80adc828a548f5983aab1b239d87ce13f /src/doc.c | |
| parent | ca8d5ed6ecd5ca3eafa2923ee04e56dc474bd964 (diff) | |
| download | emacs-8b1d9b8e5ed8035bd2f42517bb6bc3c8a6d6f0ae.tar.gz emacs-8b1d9b8e5ed8035bd2f42517bb6bc3c8a6d6f0ae.tar.bz2 emacs-8b1d9b8e5ed8035bd2f42517bb6bc3c8a6d6f0ae.zip | |
add initial native compiler pdumper support
Diffstat (limited to 'src/doc.c')
| -rw-r--r-- | src/doc.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/doc.c b/src/doc.c index 369997a3db4..9e1d8392787 100644 --- a/src/doc.c +++ b/src/doc.c @@ -510,13 +510,15 @@ store_function_docstring (Lisp_Object obj, EMACS_INT offset) XSETCAR (tem, make_fixnum (offset)); } } - +#ifdef HAVE_NATIVE_COMP + else if (SUBRP_NATIVE_COMPILEDP (fun)) + { + XSUBR (fun)->native_doc = Qnil; + } +#endif /* Lisp_Subrs have a slot for it. */ else if (SUBRP (fun)) { -#ifdef HAVE_NATIVE_COMP - eassert (NILP (Fsubr_native_elisp_p (fun))); -#endif XSUBR (fun)->doc = offset; } |