From: Andrea Corallo <akrl@sdf.org>
Date: Fri, 10 Apr 2020 21:24:07 +0000 (+0100)
Subject: * src/comp.c (native-comp-unit-set-file): New function.
X-Git-Tag: emacs-28.0.90~2727^2~716
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d85b803b78bc2a9b0424f0caac62a4e9de49b3e4;p=emacs.git

* src/comp.c (native-comp-unit-set-file): New function.
---

diff --git a/src/data.c b/src/data.c
index 2040e4eaecd..1809d58c2c7 100644
--- a/src/data.c
+++ b/src/data.c
@@ -884,9 +884,19 @@ 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 comp_unit)
+{
+  CHECK_TYPE (NATIVE_COMP_UNITP (comp_unit), Qnative_comp_unit, comp_unit);
+  return XNATIVE_COMP_UNIT (comp_unit)->file;
+}
+
+DEFUN ("native-comp-unit-set-file", Fnative_comp_unit_set_file,
+       Snative_comp_unit_set_file, 2, 2, 0,
+       doc: /* Return the file of the native compilation unit.  */)
+  (Lisp_Object comp_unit, Lisp_Object new_file)
 {
   CHECK_TYPE (NATIVE_COMP_UNITP (comp_unit), Qnative_comp_unit, comp_unit);
   XNATIVE_COMP_UNIT (comp_unit)->file = new_file;
+  return comp_unit;
 }
 
 #endif
@@ -4007,6 +4017,7 @@ syms_of_data (void)
   defsubr (&Ssubr_native_elisp_p);
   defsubr (&Ssubr_native_comp_unit);
   defsubr (&Snative_comp_unit_file);
+  defsubr (&Snative_comp_unit_set_file);
 #endif
 #ifdef HAVE_MODULES
   defsubr (&Suser_ptrp);