From 8b1d9b8e5ed8035bd2f42517bb6bc3c8a6d6f0ae Mon Sep 17 00:00:00 2001
From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 23 Dec 2019 14:27:55 +0100
Subject: add initial native compiler pdumper support

---
 src/doc.c | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'src/doc.c')

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;
     }
 
-- 
cgit v1.2.3