From 8271d59040b3d83fb3fc8cb23723538183b12ad4 Mon Sep 17 00:00:00 2001
From: Dmitry Antipov
Date: Wed, 1 Aug 2012 11:57:09 +0400
Subject: Use INTERNAL_FIELD for symbols. * src/lisp.h (SVAR): New macro. 
 Adjust users. * src/alloc.c, src/bytecode.c, src/cmds.c, src/data.c,
 src/doc.c, src/eval.c: * src/fns.c, src/keyboard.c, src/lread.c, src/xterm.c:
 Users changed. * admin/coccinelle/symbol.cocci: Semantic patch to replace
 direct access to Lisp_Object members of struct Lisp_Symbol to SVAR.

---
 src/bytecode.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/bytecode.c')

diff --git a/src/bytecode.c b/src/bytecode.c
index dca1e552dd0..523d56bc97b 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -818,7 +818,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
 		&& !EQ (val, Qunbound)
 		&& !XSYMBOL (sym)->redirect
 		&& !SYMBOL_CONSTANT_P (sym))
-	      XSYMBOL (sym)->val.value = val;
+	      SVAR (XSYMBOL (sym), val.value) = val;
 	    else
 	      {
 		BEFORE_POTENTIAL_GC ();
-- 
cgit v1.2.1