diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-01-19 16:49:11 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-01-19 17:17:30 -0800 |
| commit | 347e01447194e511daaeee8835bcb86d2505e642 (patch) | |
| tree | a075b2c51308d56221833b5e7d9e8e48e18e472d /src/callint.c | |
| parent | fb6462f056f616f3da8ae18037c7c2137fecb6fd (diff) | |
| download | emacs-347e01447194e511daaeee8835bcb86d2505e642.tar.gz emacs-347e01447194e511daaeee8835bcb86d2505e642.tar.bz2 emacs-347e01447194e511daaeee8835bcb86d2505e642.zip | |
Port to hypothetical case where Qnil is nonzero
* alloc.c (allocate_pseudovector):
* callint.c (Fcall_interactively):
* coding.c (syms_of_coding):
* dispnew.c (realloc_glyph_pool):
* fringe.c (init_fringe):
* lisp.h (memsetnil):
* xdisp.c (init_iterator):
Port to the currently-hypothetical case where Qnil is nonzero.
* dispnew.c (adjust_glyph_matrix): Remove unnecessary verification,
as there are no Lisp_Object values in the data here.
* lisp.h (NIL_IS_NONZERO): New symbol, replacing NIL_IS_ZERO.
All uses changed. Define only if not already defined, so that one
can debug with -DNIL_IS_NONZERO.
* xdisp.c (init_iterator): Remove unnecessary initializations to 0.
Diffstat (limited to 'src/callint.c')
| -rw-r--r-- | src/callint.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/callint.c b/src/callint.c index 3a595b57d77..43566acfbe9 100644 --- a/src/callint.c +++ b/src/callint.c @@ -509,8 +509,9 @@ invoke it. If KEYS is omitted or nil, the return value of visargs = args + nargs; varies = (signed char *) (visargs + nargs); - verify (NIL_IS_ZERO); memset (args, 0, nargs * (2 * word_size + 1)); + if (NIL_IS_NONZERO) + memsetnil (args, nargs * 2); GCPRO5 (prefix_arg, function, *args, *visargs, up_event); gcpro3.nvars = nargs; |