From: Paul Eggert <eggert@Penguin.CS.UCLA.EDU>
Date: Sat, 4 May 2019 17:16:46 +0000 (-0700)
Subject: Fix bytecode optimization typo
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~3383
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=37963ed4991823fd1ee5cd2c485f22ac988259e2;p=emacs.git

Fix bytecode optimization typo

Problem reported by Simon Frankau (Bug#35562).
* src/bytecode.c (exec_byte_code): Fix typo when optimizing varset.
---

diff --git a/src/bytecode.c b/src/bytecode.c
index 40977799bfc..6f601cf0cd5 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -562,7 +562,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
 	    /* Inline the most common case.  */
 	    if (SYMBOLP (sym)
 		&& !EQ (val, Qunbound)
-		&& !XSYMBOL (sym)->u.s.redirect
+		&& XSYMBOL (sym)->u.s.redirect == SYMBOL_PLAINVAL
 		&& !SYMBOL_TRAPPED_WRITE_P (sym))
 	      SET_SYMBOL_VAL (XSYMBOL (sym), val);
 	    else