From 1dd1218653be3425e7f53ea1cfcb0d14addfaa05 Mon Sep 17 00:00:00 2001 From: Dmitry Antipov Date: Thu, 11 Sep 2014 17:21:19 +0400 Subject: Remove redundant GCPROs around Ffuncall and Fapply calls. This is safe because Ffuncall protects all of its arguments by itself. * charset.c (map_charset_for_dump): Remove redundant GCPRO. * eval.c (Fapply, apply1, call0, call1, call2, call3, call4, call5) (call6, call7): Likewise. Use compound literals where applicable. (run_hook_with_args_2): Use compound literal. --- src/charset.c | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'src/charset.c') diff --git a/src/charset.c b/src/charset.c index 501075621cd..f987ab67ce9 100644 --- a/src/charset.c +++ b/src/charset.c @@ -667,12 +667,8 @@ map_charset_for_dump (void (*c_function) (Lisp_Object, Lisp_Object), { int from_idx = CODE_POINT_TO_INDEX (temp_charset_work->current, from); int to_idx = CODE_POINT_TO_INDEX (temp_charset_work->current, to); - Lisp_Object range; + Lisp_Object range = Fcons (Qnil, Qnil); int c, stop; - struct gcpro gcpro1; - - range = Fcons (Qnil, Qnil); - GCPRO1 (range); c = temp_charset_work->min_char; stop = (temp_charset_work->max_char < 0x20000 @@ -715,7 +711,6 @@ map_charset_for_dump (void (*c_function) (Lisp_Object, Lisp_Object), } c++; } - UNGCPRO; } void -- cgit v1.2.1