comparison src/bytecode.c @ 26376:6706cd0ece4d

(mark_byte_stack): Use XMARKBIT and XMARK. (unmark_byte_stack): Renamed from relocate_byte_pcs. Use XUNMARK.

26375:9443a8ee34d4

    {
      if (!stack->top)
	abort ();
      
      for (obj = stack->bottom; obj <= stack->top; ++obj)
	mark_object (obj);

      mark_object (&stack->byte_string);
      mark_object (&stack->constants);
    }
}


/* Relocate program counters in the stacks on byte_stack_list.  Called
   when GC has completed.  */

void 
relocate_byte_pcs ()
{
  struct byte_stack *stack;

  for (stack = byte_stack_list; stack; stack = stack->next)
    if (stack->byte_string_start != XSTRING (stack->byte_string)->data)
      {
	int offset = stack->pc - stack->byte_string_start;
	stack->byte_string_start = XSTRING (stack->byte_string)->data;
	stack->pc = stack->byte_string_start + offset;
      }
}


/* Fetch the next byte from the bytecode stream */

26376:6706cd0ece4d

    {
      if (!stack->top)
	abort ();
      
      for (obj = stack->bottom; obj <= stack->top; ++obj)
	if (!XMARKBIT (*obj))
	  {
	    mark_object (obj);
	    XMARK (*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);
	}
    }
}


/* Unmark objects in the stacks on byte_stack_list.  Relocate program
   counters.  Called when GC has completed.  */

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 != XSTRING (stack->byte_string)->data)
	{
	  int offset = stack->pc - stack->byte_string_start;
	  stack->byte_string_start = XSTRING (stack->byte_string)->data;
	  stack->pc = stack->byte_string_start + offset;
	}
    }
}


/* Fetch the next byte from the bytecode stream */