procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* fns.c (sort_vector): Fix GC bug in previous change.

Browse source
This commit is contained in:
Paul Eggert 2014-08-30 16:29:23 -07:00
parent f9caea8233
commit 0ac6761dfb
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/fns.c
View file

@ -1992,17 +1992,18 @@ sort_vector (Lisp_Object vector, Lisp_Object predicate)
return;
ptrdiff_t halflen = len >> 1;
Lisp_Object *tmp;
Lisp_Object tmpvec = Qnil;
struct gcpro gcpro1, gcpro2, gcpro3;
GCPRO3 (vector, predicate, predicate);
USE_SAFE_ALLOCA;
SAFE_ALLOCA_LISP (tmp, halflen);
for (ptrdiff_t i = 0; i < halflen; i++)
tmp[i] = make_number (0);
gcpro3.var = tmp;
gcpro3.nvars = halflen;
GCPRO3 (vector, predicate, tmpvec);
if (halflen < MAX_ALLOCA / word_size)
tmp = alloca (halflen * word_size);
else
{
tmpvec = Fmake_vector (make_number (halflen), make_number (0));
tmp = XVECTOR (tmpvec)->contents;
}
sort_vector_inplace (predicate, len, XVECTOR (vector)->contents, tmp);
UNGCPRO;
SAFE_FREE ();
}
DEFUN ("sort", Fsort, Ssort, 2, 2, 0,