From 7872d496d5dc272dacd2d2a5fd9238e39f2dbea8 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Tue, 22 Mar 2022 09:32:57 +0100 Subject: [PATCH] * src/comp.c: Few improvements following 71b8f1fc635. * src/comp.c (ABI_VERSION): Update. (Fcomp__register_lambda, Fcomp__register_subr): Remove unnecessary check. * src/comp.c (Fcomp__register_lambda, Fcomp__register_subr): Remove unnecessary change. --- src/comp.c | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/src/comp.c b/src/comp.c index 349f228558e..398f35ddb0b 100644 --- a/src/comp.c +++ b/src/comp.c @@ -447,7 +447,7 @@ load_gccjit_if_necessary (bool mandatory) /* Increase this number to force a new Vcomp_abi_hash to be generated. */ -#define ABI_VERSION "4" +#define ABI_VERSION "5" /* Length of the hashes used for eln file naming. */ #define HASH_LENGTH 8 @@ -5463,9 +5463,7 @@ This gets called by top_level_run during the load phase. */) { Lisp_Object doc_idx = FIRST (rest); Lisp_Object intspec = SECOND (rest); - Lisp_Object command_modes = Qnil; - if (!NILP (XCDR (XCDR (rest)))) - command_modes = THIRD (rest); + Lisp_Object command_modes = THIRD (rest); struct Lisp_Native_Comp_Unit *cu = XNATIVE_COMP_UNIT (comp_u); if (cu->loaded_once) @@ -5498,9 +5496,7 @@ This gets called by top_level_run during the load phase. */) { Lisp_Object doc_idx = FIRST (rest); Lisp_Object intspec = SECOND (rest); - Lisp_Object command_modes = Qnil; - if (!NILP (XCDR (XCDR (rest)))) - command_modes = THIRD (rest); + Lisp_Object command_modes = THIRD (rest); Lisp_Object tem = make_subr (SYMBOL_NAME (name), minarg, maxarg, c_name, type, doc_idx, -- 2.39.5