mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(mark_byte_stack, unmark_byte_stack): Ignore the markbit.

Browse source
This commit is contained in:
Stefan Monnier 2003-09-11 21:58:32 +00:00
parent 9f7b135da7
commit 2a1c1d7150
1 changed files with 4 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/bytecode.c
View file

@ -286,27 +286,13 @@ mark_byte_stack ()
The culprit is found in the frame of Fbyte_code where the
address of its local variable `stack' is equal to the
recorded value of `stack' here. */
if (!stack->top)
abort ();
eassert (stack->top);
for (obj = stack->bottom; obj <= stack->top; ++obj)
if (!XMARKBIT (*obj))
{
mark_object (*obj);
XMARK (*obj);
}
mark_object (*obj);
if (!XMARKBIT (stack->byte_string))
{
mark_object (stack->byte_string);
XMARK (stack->byte_string);
}
if (!XMARKBIT (stack->constants))
{
mark_object (stack->constants);
XMARK (stack->constants);
}
mark_object (stack->byte_string);
mark_object (stack->constants);
}
}
@ -318,16 +304,9 @@ void
unmark_byte_stack ()
{
struct byte_stack *stack;
Lisp_Object *obj;
for (stack = byte_stack_list; stack; stack = stack->next)
{
for (obj = stack->bottom; obj <= stack->top; ++obj)
XUNMARK (*obj);
XUNMARK (stack->byte_string);
XUNMARK (stack->constants);
if (stack->byte_string_start != SDATA (stack->byte_string))
{
int offset = stack->pc - stack->byte_string_start;