comparison src/alloc.c @ 90288:7432ca837c8d

Revision: [e-mail]/emacs--unicode--0--patch-9 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 16-33) - Update from CVS - Install ERC. - Fix ERC compiler warnings. - Use utf-8 encoding in ERC ChangeLogs. - Merge ERC-related Viper hacks into Viper. - Merge from erc--main--0 - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 8-13) - Merge from emacs--devo--0 - Update from CVS

90287:3cd97358d81a

INTERVAL
make_interval ()
{
  INTERVAL val;

  eassert (!handling_signal);

  if (interval_free_list)
    {
      val = interval_free_list;
      interval_free_list = INTERVAL_PARENT (interval_free_list);

	  interval_block_index = 0;
	  n_interval_blocks++;
	}
      val = &interval_block->intervals[interval_block_index++];
    }
  consing_since_gc += sizeof (struct interval);
  intervals_consed++;
  RESET_INTERVAL (val);
  val->gcmarkbit = 0;
  return val;

static struct Lisp_String *
allocate_string ()
{
  struct Lisp_String *s;

  eassert (!handling_signal);

  /* If the free-list is empty, allocate a new string_block, and
     add all the Lisp_Strings in it to the free-list.  */
  if (string_free_list == NULL)
    {

  check_string_free_list ();

  /* Pop a Lisp_String off the free-list.  */
  s = string_free_list;
  string_free_list = NEXT_FREE_LISP_STRING (s);

  /* Probably not strictly necessary, but play it safe.  */
  bzero (s, sizeof *s);

  --total_free_strings;

  int needed, old_nbytes;

  /* Determine the number of bytes needed to store NBYTES bytes
     of string data.  */
  needed = SDATA_SIZE (nbytes);

  if (nbytes > LARGE_STRING_BYTES)
    {
      size_t size = sizeof *b - sizeof (struct sdata) + needed;

      current_sblock = b;
    }
  else
    b = current_sblock;

  old_data = s->data ? SDATA_OF_STRING (s) : NULL;
  old_nbytes = GC_STRING_BYTES (s);

  data = b->next_free;
  b->next_free = (struct sdata *) ((char *) data + needed + GC_STRING_EXTRA);

  data->string = s;
  s->data = SDATA_DATA (data);
#ifdef GC_CHECK_STRING_BYTES
  SDATA_NBYTES (data) = nbytes;

make_float (float_value)
     double float_value;
{
  register Lisp_Object val;

  eassert (!handling_signal);

  if (float_free_list)
    {
      /* We use the data field for chaining the free list
	 so that we won't use the same field that has the mark bit.  */

	}
      XSETFLOAT (val, &float_block->floats[float_block_index]);
      float_block_index++;
    }

  XFLOAT_DATA (val) = float_value;
  eassert (!FLOAT_MARKED_P (XFLOAT (val)));
  consing_since_gc += sizeof (struct Lisp_Float);
  floats_consed++;
  return val;

     (car, cdr)
     Lisp_Object car, cdr;
{
  register Lisp_Object val;

  eassert (!handling_signal);

  if (cons_free_list)
    {
      /* We use the cdr for chaining the free list
	 so that we won't use the same field that has the mark bit.  */

	}
      XSETCONS (val, &cons_block->conses[cons_block_index]);
      cons_block_index++;
    }

  XSETCAR (val, car);
  XSETCDR (val, cdr);
  eassert (!CONS_MARKED_P (XCONS (val)));
  consing_since_gc += sizeof (struct Lisp_Cons);
  cons_cells_consed++;

#endif

  consing_since_gc += nbytes;
  vector_cells_consed += len;

  p->next = all_vectors;
  all_vectors = p;
  ++n_vectors;
  return p;
}

  register struct Lisp_Symbol *p;

  CHECK_STRING (name);

  eassert (!handling_signal);

  if (symbol_free_list)
    {
      XSETSYMBOL (val, symbol_free_list);
      symbol_free_list = symbol_free_list->next;

	  n_symbol_blocks++;
	}
      XSETSYMBOL (val, &symbol_block->symbols[symbol_block_index]);
      symbol_block_index++;
    }

  p = XSYMBOL (val);
  p->xname = name;
  p->plist = Qnil;
  p->value = Qunbound;

Lisp_Object
allocate_misc ()
{
  Lisp_Object val;

  eassert (!handling_signal);

  if (marker_free_list)
    {
      XSETMISC (val, marker_free_list);
      marker_free_list = marker_free_list->u_free.chain;

	  total_free_markers += MARKER_BLOCK_SIZE;
	}
      XSETMISC (val, &marker_block->markers[marker_block_index]);
      marker_block_index++;
    }

  --total_free_markers;
  consing_since_gc += sizeof (union Lisp_Misc);
  misc_objects_consed++;
  XMARKER (val)->gcmarkbit = 0;

void
check_pure_size ()
{
  if (pure_bytes_used_before_overflow)
    message ("Pure Lisp storage overflow (approx. %d bytes needed)",
	     (int) (pure_bytes_used + pure_bytes_used_before_overflow));
}


/* Return a string allocated in pure space.  DATA is a buffer holding

90288:7432ca837c8d

INTERVAL
make_interval ()
{
  INTERVAL val;

  /* eassert (!handling_signal); */

#ifndef SYNC_INPUT
  BLOCK_INPUT;
#endif

  if (interval_free_list)
    {
      val = interval_free_list;
      interval_free_list = INTERVAL_PARENT (interval_free_list);

	  interval_block_index = 0;
	  n_interval_blocks++;
	}
      val = &interval_block->intervals[interval_block_index++];
    }

#ifndef SYNC_INPUT
  UNBLOCK_INPUT;
#endif

  consing_since_gc += sizeof (struct interval);
  intervals_consed++;
  RESET_INTERVAL (val);
  val->gcmarkbit = 0;
  return val;

static struct Lisp_String *
allocate_string ()
{
  struct Lisp_String *s;

  /* eassert (!handling_signal); */

#ifndef SYNC_INPUT
  BLOCK_INPUT;
#endif

  /* If the free-list is empty, allocate a new string_block, and
     add all the Lisp_Strings in it to the free-list.  */
  if (string_free_list == NULL)
    {

  check_string_free_list ();

  /* Pop a Lisp_String off the free-list.  */
  s = string_free_list;
  string_free_list = NEXT_FREE_LISP_STRING (s);

#ifndef SYNC_INPUT
  UNBLOCK_INPUT;
#endif

  /* Probably not strictly necessary, but play it safe.  */
  bzero (s, sizeof *s);

  --total_free_strings;

  int needed, old_nbytes;

  /* Determine the number of bytes needed to store NBYTES bytes
     of string data.  */
  needed = SDATA_SIZE (nbytes);
  old_data = s->data ? SDATA_OF_STRING (s) : NULL;
  old_nbytes = GC_STRING_BYTES (s);

#ifndef SYNC_INPUT
  BLOCK_INPUT;
#endif

  if (nbytes > LARGE_STRING_BYTES)
    {
      size_t size = sizeof *b - sizeof (struct sdata) + needed;

      current_sblock = b;
    }
  else
    b = current_sblock;

  data = b->next_free;
  b->next_free = (struct sdata *) ((char *) data + needed + GC_STRING_EXTRA);

#ifndef SYNC_INPUT
  UNBLOCK_INPUT;
#endif

  data->string = s;
  s->data = SDATA_DATA (data);
#ifdef GC_CHECK_STRING_BYTES
  SDATA_NBYTES (data) = nbytes;

make_float (float_value)
     double float_value;
{
  register Lisp_Object val;

  /* eassert (!handling_signal); */

#ifndef SYNC_INPUT
  BLOCK_INPUT;
#endif

  if (float_free_list)
    {
      /* We use the data field for chaining the free list
	 so that we won't use the same field that has the mark bit.  */

	}
      XSETFLOAT (val, &float_block->floats[float_block_index]);
      float_block_index++;
    }

#ifndef SYNC_INPUT
  UNBLOCK_INPUT;
#endif

  XFLOAT_DATA (val) = float_value;
  eassert (!FLOAT_MARKED_P (XFLOAT (val)));
  consing_since_gc += sizeof (struct Lisp_Float);
  floats_consed++;
  return val;

     (car, cdr)
     Lisp_Object car, cdr;
{
  register Lisp_Object val;

  /* eassert (!handling_signal); */

#ifndef SYNC_INPUT
  BLOCK_INPUT;
#endif

  if (cons_free_list)
    {
      /* We use the cdr for chaining the free list
	 so that we won't use the same field that has the mark bit.  */

	}
      XSETCONS (val, &cons_block->conses[cons_block_index]);
      cons_block_index++;
    }

#ifndef SYNC_INPUT
  UNBLOCK_INPUT;
#endif

  XSETCAR (val, car);
  XSETCDR (val, cdr);
  eassert (!CONS_MARKED_P (XCONS (val)));
  consing_since_gc += sizeof (struct Lisp_Cons);
  cons_cells_consed++;

#endif

  consing_since_gc += nbytes;
  vector_cells_consed += len;

#ifndef SYNC_INPUT
  BLOCK_INPUT;
#endif

  p->next = all_vectors;
  all_vectors = p;

#ifndef SYNC_INPUT
  UNBLOCK_INPUT;
#endif

  ++n_vectors;
  return p;
}

  register struct Lisp_Symbol *p;

  CHECK_STRING (name);

  eassert (!handling_signal);

#ifndef SYNC_INPUT
  BLOCK_INPUT;
#endif

  if (symbol_free_list)
    {
      XSETSYMBOL (val, symbol_free_list);
      symbol_free_list = symbol_free_list->next;

	  n_symbol_blocks++;
	}
      XSETSYMBOL (val, &symbol_block->symbols[symbol_block_index]);
      symbol_block_index++;
    }

#ifndef SYNC_INPUT
  UNBLOCK_INPUT;
#endif

  p = XSYMBOL (val);
  p->xname = name;
  p->plist = Qnil;
  p->value = Qunbound;

Lisp_Object
allocate_misc ()
{
  Lisp_Object val;

  /* eassert (!handling_signal); */

#ifndef SYNC_INPUT
  BLOCK_INPUT;
#endif

  if (marker_free_list)
    {
      XSETMISC (val, marker_free_list);
      marker_free_list = marker_free_list->u_free.chain;

	  total_free_markers += MARKER_BLOCK_SIZE;
	}
      XSETMISC (val, &marker_block->markers[marker_block_index]);
      marker_block_index++;
    }

#ifndef SYNC_INPUT
  UNBLOCK_INPUT;
#endif

  --total_free_markers;
  consing_since_gc += sizeof (union Lisp_Misc);
  misc_objects_consed++;
  XMARKER (val)->gcmarkbit = 0;

void
check_pure_size ()
{
  if (pure_bytes_used_before_overflow)
    message ("emacs:0:Pure Lisp storage overflow (approx. %d bytes needed)",
	     (int) (pure_bytes_used + pure_bytes_used_before_overflow));
}


/* Return a string allocated in pure space.  DATA is a buffer holding