From df0a7547cbaf19152a74b5dda760e5d1f6c92ecc Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 23 Dec 2019 09:40:41 +0100 Subject: [PATCH] add native-comp-unit-file primitive --- src/data.c | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) 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); -- 2.39.5