From cfcbfb1aa5d013f114bc002110166fd1f5392f56 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Wed, 16 Mar 2011 00:34:28 -0700 Subject: [PATCH] * eval.c (lisp_indirect_variable): Name an expression, to avoid gcc -Wbad-function-cast warning. --- src/ChangeLog | 2 ++ src/eval.c | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index 15d169a8b30..a5a4657f7dc 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -2,6 +2,8 @@ * eval.c (call_debugger, do_debug_on_call, grow_specpdl): Now static. (Fdefvar): Rewrite so as not to use empty "else". + (lisp_indirect_variable): Name an expression, + to avoid gcc -Wbad-function-cast warning. * callint.c (quotify_arg, quotify_args): Now static. (Fcall_interactively): Rename locals to avoid shadowing. diff --git a/src/eval.c b/src/eval.c index 4f6d3dd015d..affafadfecf 100644 --- a/src/eval.c +++ b/src/eval.c @@ -856,7 +856,8 @@ user_variable_p_eh (Lisp_Object ignore) static Lisp_Object lisp_indirect_variable (Lisp_Object sym) { - XSETSYMBOL (sym, indirect_variable (XSYMBOL (sym))); + struct Lisp_Symbol *s = indirect_variable (XSYMBOL (sym)); + XSETSYMBOL (sym, s); return sym; } -- 2.39.2