From d85b803b78bc2a9b0424f0caac62a4e9de49b3e4 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Fri, 10 Apr 2020 22:24:07 +0100 Subject: [PATCH] * src/comp.c (native-comp-unit-set-file): New function. --- src/data.c | 11 +++++++++++ 1 file changed, 11 insertions(+) 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); -- 2.39.5