comparison src/alloc.c @ 90201:fbb2bea03df9

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-69 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 474-484) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 88-91) - Merge from emacs--cvs-trunk--0 - Update FSF's address in GPL notices - Update from CVS

90200:f9a65d7ebd29

EMACS_INT intervals_consed;
EMACS_INT strings_consed;

/* Number of bytes of consing since GC before another GC should be done. */

EMACS_INT gc_cons_threshold;

/* Nonzero during GC.  */

int gc_in_progress;

  gc_in_progress = 0;

  consing_since_gc = 0;
  if (gc_cons_threshold < 10000)
    gc_cons_threshold = 10000;

  if (garbage_collection_messages)
    {
      if (message_p || minibuf_level > 0)
	restore_message ();

  gcprolist = 0;
  byte_stack_list = 0;
  staticidx = 0;
  consing_since_gc = 0;
  gc_cons_threshold = 100000 * sizeof (Lisp_Object);
#ifdef VIRT_ADDR_VARIES
  malloc_sbrk_unused = 1<<22;	/* A large number */
  malloc_sbrk_used = 100000;	/* as reasonable as any number */
#endif /* VIRT_ADDR_VARIES */
}

allocated since the last garbage collection.  All data types count.

Garbage collection happens automatically only when `eval' is called.

By binding this temporarily to a large number, you can effectively
prevent garbage collection during a part of the program.  */);

  DEFVAR_INT ("pure-bytes-used", &pure_bytes_used,
	      doc: /* Number of bytes of sharable Lisp data allocated so far.  */);

  DEFVAR_INT ("cons-cells-consed", &cons_cells_consed,

90201:fbb2bea03df9

EMACS_INT intervals_consed;
EMACS_INT strings_consed;

/* Number of bytes of consing since GC before another GC should be done. */

static EMACS_INT gc_cons_threshold;
EMACS_INT gc_cons_combined_threshold;
static Lisp_Object Vgc_cons_percentage;

/* Nonzero during GC.  */

int gc_in_progress;

  gc_in_progress = 0;

  consing_since_gc = 0;
  if (gc_cons_threshold < 10000)
    gc_cons_threshold = 10000;

  gc_cons_combined_threshold = gc_cons_threshold;

  if (FLOATP (Vgc_cons_percentage))
    { /* Set gc_cons_combined_threshold.  */
      EMACS_INT total = 0;
      EMACS_INT threshold;
      total += total_conses  * sizeof (struct Lisp_Cons);
      total += total_symbols * sizeof (struct Lisp_Symbol);
      total += total_markers * sizeof (union Lisp_Misc);
      total += total_string_size;
      total += total_vector_size * sizeof (Lisp_Object);
      total += total_floats  * sizeof (struct Lisp_Float);
      total += total_intervals * sizeof (struct interval);
      total += total_strings * sizeof (struct Lisp_String);
      
      threshold = total * XFLOAT_DATA (Vgc_cons_percentage);
      if (threshold > gc_cons_combined_threshold)
	gc_cons_combined_threshold = threshold;
    }

  if (garbage_collection_messages)
    {
      if (message_p || minibuf_level > 0)
	restore_message ();

  gcprolist = 0;
  byte_stack_list = 0;
  staticidx = 0;
  consing_since_gc = 0;
  gc_cons_threshold = 100000 * sizeof (Lisp_Object);
  gc_cons_combined_threshold = gc_cons_threshold;
#ifdef VIRT_ADDR_VARIES
  malloc_sbrk_unused = 1<<22;	/* A large number */
  malloc_sbrk_used = 100000;	/* as reasonable as any number */
#endif /* VIRT_ADDR_VARIES */
}

allocated since the last garbage collection.  All data types count.

Garbage collection happens automatically only when `eval' is called.

By binding this temporarily to a large number, you can effectively
prevent garbage collection during a part of the program.
See also `gc-cons-percentage'.  */);

  DEFVAR_LISP ("gc-cons-percentage", &Vgc_cons_percentage,
	       doc: /* *Portion of the heap used for allocation.
Garbage collection can happen automatically once this portion of the heap
has been allocated since the last garbage collection.
If this portion is smaller than `gc-cons-threshold', this is ignored.  */);
  Vgc_cons_percentage = make_float (0.1);

  DEFVAR_INT ("pure-bytes-used", &pure_bytes_used,
	      doc: /* Number of bytes of sharable Lisp data allocated so far.  */);

  DEFVAR_INT ("cons-cells-consed", &cons_cells_consed,