From d8e2b5ba620f3a69dd22d778d00aec3b71e3a87a Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sat, 2 Apr 2011 15:11:16 +0200 Subject: [PATCH] src/eval.c (unwind_to_catch) [DEBUG_GCPRO]: Remove redundant assignment. --- src/ChangeLog | 4 ++++ src/eval.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index 819ccd60f7..f6595637f7 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2011-04-02 Juanma Barranquero + + * eval.c (unwind_to_catch) [DEBUG_GCPRO]: Remove redundant assignment. + 2011-04-02 Jan Djärv * nsterm.m (ns_update_auto_hide_menu_bar): Only for OSX 10.6 or diff --git a/src/eval.c b/src/eval.c index 948c2e4d15..9b6605eed2 100644 --- a/src/eval.c +++ b/src/eval.c @@ -1297,7 +1297,7 @@ unwind_to_catch (struct catchtag *catch, Lisp_Object value) byte_stack_list = catch->byte_stack; gcprolist = catch->gcpro; #ifdef DEBUG_GCPRO - gcpro_level = gcprolist ? gcprolist->level + 1 : gcpro_level = 0; + gcpro_level = gcprolist ? gcprolist->level + 1 : 0; #endif backtrace_list = catch->backlist; lisp_eval_depth = catch->lisp_eval_depth; -- 2.20.1