From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 17 Nov 2019 18:25:21 +0000 (+0100)
Subject: require advice when compiling or loading
X-Git-Tag: emacs-28.0.90~2727^2~977
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=41e5c9400cd9eeeecff2262907c09c3b10a5cde7;p=emacs.git

require advice when compiling or loading
---

diff --git a/src/comp.c b/src/comp.c
index ad669a5dafb..251ba242d43 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -3052,6 +3052,8 @@ DEFUN ("comp--compile-ctxt-to-file", Fcomp__compile_ctxt_to_file,
 {
   CHECK_STRING (ctxtname);
 
+  Frequire (Qadvice, Qnil, Qnil);
+
   gcc_jit_context_set_int_option (comp.ctxt,
 				  GCC_JIT_INT_OPTION_OPTIMIZATION_LEVEL,
 				  SPEED);
@@ -3327,6 +3329,8 @@ DEFUN ("native-elisp-load", Fnative_elisp_load, Snative_elisp_load, 1, 1, 0,
 {
   CHECK_STRING (file);
 
+  Frequire (Qadvice, Qnil, Qnil);
+
   Vnative_load_history = Fcons (file, Vnative_load_history);
 
   dynlib_handle_ptr handle = dynlib_open (SSDATA (file));
@@ -3395,6 +3399,7 @@ syms_of_comp (void)
   DEFSYM (Qcomp_unit_load_failed, "comp-unit-load-failed");
   /* Others.  */
   DEFSYM (Qfixnum, "fixnum");
+  DEFSYM (Qadvice, "advice");
 
   defsubr (&Scomp__init_ctxt);
   defsubr (&Scomp__release_ctxt);