From 946f9a5b0a6df7470868acb8b39ad10b0866f73e Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Tue, 15 Mar 2011 16:03:11 -0700 Subject: [PATCH] * data.c (Findirect_variable): Name an expression, to avoid gcc -Wbad-function-cast warning. --- src/ChangeLog | 3 +++ src/data.c | 5 ++++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index d62b1e2464b..e2bff73bdb3 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,8 @@ 2011-03-15 Paul Eggert + * data.c (Findirect_variable): Name an expression, to avoid + gcc -Wbad-function-cast warning. + * alloc.c (check_cons_list): Do not define unless GC_CHECK_CONS_LIST. (Fmake_vector, Fvector, Fmake_byte_code, Fgarbage_collect): Rename locals to avoid shadowing. diff --git a/src/data.c b/src/data.c index d0afca6a09f..288525cf5f5 100644 --- a/src/data.c +++ b/src/data.c @@ -805,7 +805,10 @@ variable chain of symbols. */) (Lisp_Object object) { if (SYMBOLP (object)) - XSETSYMBOL (object, indirect_variable (XSYMBOL (object))); + { + struct Lisp_Symbol *sym = indirect_variable (XSYMBOL (object)); + XSETSYMBOL (object, sym); + } return object; } -- 2.39.2