From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 23 Dec 2019 08:40:41 +0000 (+0100)
Subject: add native-comp-unit-file primitive
X-Git-Tag: emacs-28.0.90~2727^2~893
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=df0a7547cbaf19152a74b5dda760e5d1f6c92ecc;p=emacs.git

add native-comp-unit-file primitive
---

diff --git a/src/data.c b/src/data.c
index 70f8a8f2c1a..3fb0fc0a190 100644
--- a/src/data.c
+++ b/src/data.c
@@ -883,6 +883,15 @@ DEFUN ("subr-native-comp-unit", Fsubr_native_comp_unit,
   CHECK_SUBR (subr);
   return XSUBR (subr)->native_comp_u;
 }
+
+DEFUN ("native-comp-unit-file", Fnative_comp_unit_file,
+       Snative_comp_unit_file, 1, 1, 0,
+       doc: /* Return the file of the native compilation unit.  */)
+  (Lisp_Object object)
+{
+  CHECK_TYPE (NATIVE_COMP_UNITP (object), Qnative_comp_unit, object);
+  return XNATIVE_COMP_UNIT (object)->file;
+}
 #endif
 
 DEFUN ("interactive-form", Finteractive_form, Sinteractive_form, 1, 1, 0,
@@ -4011,7 +4020,8 @@ syms_of_data (void)
   defsubr (&Ssubr_name);
 #ifdef HAVE_NATIVE_COMP
   defsubr (&Ssubr_native_elisp_p);
-  defsubr (&Ssubr_native_compilation_unit);
+  defsubr (&Ssubr_native_comp_unit);
+  defsubr (&Snative_comp_unit_file);
 #endif
 #ifdef HAVE_MODULES
   defsubr (&Suser_ptrp);