From b7f83adda5a32140811e8e7decc4394d64cada3d Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 19 Jan 2015 00:56:18 -0800 Subject: Prefer memset to repeatedly assigning Qnil * alloc.c (allocate_pseudovector): Catch more bogus values. * alloc.c (allocate_pseudovector): * callint.c (Fcall_interactively): * coding.c (syms_of_coding): * fringe.c (init_fringe): Verify that Qnil == 0. * callint.c (Fcall_interactively): * eval.c (Fapply, Ffuncall): * fns.c (mapcar1, larger_vector): * font.c (font_expand_wildcards): * fringe.c (init_fringe): Prefer memset to assigning zeros by hand. * callint.c (Fcall_interactively): Remove duplicate assignment of Qnil to args[i]. * coding.c (syms_of_coding): Prefer LISP_INITIALLY_ZERO to assigning zeros by hand. * fileio.c (Ffile_selinux_context): Rewrite to avoid need for Lisp_Object array. * lisp.h (XLI_BUILTIN_LISPSYM): New macro. (DEFINE_LISP_SYMBOL_END): Use it. (NIL_IS_ZERO): New constant. (memsetnil): New function. --- src/fringe.c | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'src/fringe.c') diff --git a/src/fringe.c b/src/fringe.c index c7262d19336..464379d0cd0 100644 --- a/src/fringe.c +++ b/src/fringe.c @@ -1723,15 +1723,12 @@ init_fringe_once (void) void init_fringe (void) { - int i; - max_fringe_bitmaps = MAX_STANDARD_FRINGE_BITMAPS + 20; fringe_bitmaps = xzalloc (max_fringe_bitmaps * sizeof *fringe_bitmaps); - fringe_faces = xmalloc (max_fringe_bitmaps * sizeof *fringe_faces); - for (i = 0; i < max_fringe_bitmaps; i++) - fringe_faces[i] = Qnil; + verify (NIL_IS_ZERO); + fringe_faces = xzalloc (max_fringe_bitmaps * sizeof *fringe_faces); } #ifdef HAVE_NTGUI -- cgit v1.2.1