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

(free_misc): Use XMISCTYPE.

Browse source 
(live_misc_p, gc_sweep): Use Lisp_Misc_Any.
This commit is contained in:
Stefan Monnier 2007-10-17 02:10:38 +00:00
parent 820b914333
commit d314756ea8
2 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -1,3 +1,8 @@
2007-10-17 Stefan Monnier <monnier@iro.umontreal.ca>
* alloc.c (free_misc): Use XMISCTYPE.
(live_misc_p, gc_sweep): Use Lisp_Misc_Any.
2007-10-17 Glenn Morris <rgm@gnu.org>
* minibuf.c (Qcompletion_ignore_case): New Lisp_Object.

10
src/alloc.c
View file

@ -3364,7 +3364,7 @@ void
free_misc (misc)
Lisp_Object misc;
{
XMISC (misc)->u_marker.type = Lisp_Misc_Free;
XMISCTYPE (misc) = Lisp_Misc_Free;
XMISC (misc)->u_free.chain = marker_free_list;
marker_free_list = XMISC (misc);
@ -4080,7 +4080,7 @@ live_misc_p (m, p)
&& offset < (MARKER_BLOCK_SIZE * sizeof b->markers[0])
&& (b != marker_block
|| offset / sizeof b->markers[0] < marker_block_index)
&& ((union Lisp_Misc *) p)->u_marker.type != Lisp_Misc_Free);
&& ((union Lisp_Misc *) p)->u_any.type != Lisp_Misc_Free);
}
else
return 0;
@ -6148,9 +6148,9 @@ gc_sweep ()
for (i = 0; i < lim; i++)
{
if (!mblk->markers[i].u_marker.gcmarkbit)
if (!mblk->markers[i].u_any.gcmarkbit)
{
if (mblk->markers[i].u_marker.type == Lisp_Misc_Marker)
if (mblk->markers[i].u_any.type == Lisp_Misc_Marker)
unchain_marker (&mblk->markers[i].u_marker);
/* Set the type of the freed object to Lisp_Misc_Free.
We could leave the type alone, since nobody checks it,
@ -6163,7 +6163,7 @@ gc_sweep ()
else
{
num_used++;
mblk->markers[i].u_marker.gcmarkbit = 0;
mblk->markers[i].u_any.gcmarkbit = 0;
}
}
lim = MARKER_BLOCK_SIZE;