src/eval.c (unwind_to_catch) [DEBUG_GCPRO]: Remove redundant assignment.

diff --git a/src/ChangeLog b/src/ChangeLog
index 819ccd60f726dda7508aace9f007e5309e66e7e0..f6595637f7abf33f8897cc25725f7150db9f24bc 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2011-04-02  Juanma Barranquero  <lekktu@gmail.com>
+
+       * eval.c (unwind_to_catch) [DEBUG_GCPRO]: Remove redundant assignment.
+
 2011-04-02  Jan Djärv  <jan.h.d@swipnet.se>
 
        * 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 948c2e4d15896668c5bbf14ff880c223f16d6640..9b6605eed2e6022a0fb99c9fe862e2a45bf800ca 100644 (file)
--- 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;