[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp d85b803 2/7: * src/comp.c (native-comp-unit-set-file
From: |
Andrea Corallo |
Subject: |
feature/native-comp d85b803 2/7: * src/comp.c (native-comp-unit-set-file): New function. |
Date: |
Sun, 12 Apr 2020 12:13:38 -0400 (EDT) |
branch: feature/native-comp
commit d85b803b78bc2a9b0424f0caac62a4e9de49b3e4
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>
* 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 2040e4e..1809d58 100644
--- a/src/data.c
+++ b/src/data.c
@@ -886,7 +886,17 @@ DEFUN ("native-comp-unit-file", Fnative_comp_unit_file,
(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);
- feature/native-comp updated (4abb8c8 -> f9a1d4b), Andrea Corallo, 2020/04/12
- feature/native-comp d85b803 2/7: * src/comp.c (native-comp-unit-set-file): New function.,
Andrea Corallo <=
- feature/native-comp 62f9569 1/7: * src/comp.c (native-comp-unit-file): Better parameter name., Andrea Corallo, 2020/04/12
- feature/native-comp f4156b4 3/7: Implement position independent dump., Andrea Corallo, 2020/04/12
- feature/native-comp 3dd6cf8 5/7: Implement working make install for native build., Andrea Corallo, 2020/04/12
- feature/native-comp b56de5d 6/7: * src/pdumper.c (dump_do_dump_relocation): Optimize native dump load., Andrea Corallo, 2020/04/12
- feature/native-comp 7f5d1e9 4/7: Set invocation variables during dump load., Andrea Corallo, 2020/04/12
- feature/native-comp f9a1d4b 7/7: Merge remote-tracking branch 'savannah/master' into HEAD, Andrea Corallo, 2020/04/12