From: Andrea Corallo Date: Sun, 17 Nov 2019 11:46:21 +0000 (+0100) Subject: style nit into load_comp_unit X-Git-Tag: emacs-28.0.90~2727^2~983 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab3f36fac2da2979713109561f086d95bb26d580;p=emacs.git style nit into load_comp_unit --- diff --git a/src/comp.c b/src/comp.c index 2638290859f..e5d703f769f 100644 --- a/src/comp.c +++ b/src/comp.c @@ -3217,20 +3217,18 @@ load_comp_unit (dynlib_handle_ptr handle, char *file_name) Lisp_Object subr = Fsymbol_function (f_sym); if (!NILP (subr)) { - if (!SUBRP (subr)) - { + if (!SUBRP (subr) /* If is not a subr try to recover the original one assuming was advised. */ - if (!(!NILP (CALL1I (ad-has-any-advice, f_sym)) - && SUBRP (subr = CALL1I (ad-get-orig-definition, f_sym)))) - { - /* FIXME: This is not robust in case of primitive - redefinition. */ - err_msg = format_string ("primitive %s redefined " - "or wrong relocation?", - f_str); - goto exit_error; - } + && !(!NILP (CALL1I (ad-has-any-advice, f_sym)) + && SUBRP (subr = CALL1I (ad-get-orig-definition, f_sym)))) + { + /* FIXME: This is not robust in case of primitive + redefinition. */ + err_msg = format_string ("primitive %s redefined " + "or wrong relocation?", + f_str); + goto exit_error; } f_relocs[i] = XSUBR (subr)->function.a0; }