comparison src/alloc.c @ 83143:9fb10038ca55

Merged in changes from CVS trunk. Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-353 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-354 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-355 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-356 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-183

83142:62cf3d6337a0

/* Two limits controlling how much undo information to keep.  */

EMACS_INT undo_limit;
EMACS_INT undo_strong_limit;

/* Number of live and free conses etc.  */

static int total_conses, total_markers, total_symbols, total_vector_size;
static int total_free_conses, total_free_markers, total_free_symbols;

#endif

#ifdef HAVE_POSIX_MEMALIGN
      {
	int err = posix_memalign (&base, BLOCK_ALIGN, ABLOCKS_BYTES);
	abase = err ? (base = NULL) : base;
      }
#else
      base = malloc (ABLOCKS_BYTES);
      abase = ALIGN (base, BLOCK_ALIGN);
      if (base == 0)
	{
	  UNBLOCK_INPUT;
	  memory_full ();
	}
#endif

      aligned = (base == abase);
      if (!aligned)
	((void**)abase)[-1] = base;

	   Qt tends to return NULL, which effectively turns undo back on.
	   So don't call truncate_undo_list if undo_list is Qt.  */
	if (! EQ (nextb->undo_list, Qt))
	  nextb->undo_list
	    = truncate_undo_list (nextb->undo_list, undo_limit,
				  undo_strong_limit);

	/* Shrink buffer gaps, but skip indirect and dead buffers.  */
	if (nextb->base_buffer == 0 && !NILP (nextb->name))
	  {
	    /* If a buffer's gap size is more than 10% of the buffer

which includes both saved text and other data.  */);
  undo_limit = 20000;

  DEFVAR_INT ("undo-strong-limit", &undo_strong_limit,
	      doc: /* Don't keep more than this much size of undo information.
A command which pushes past this size is itself forgotten.
This limit is applied when garbage collection happens.
The size is counted as the number of bytes occupied,
which includes both saved text and other data.  */);
  undo_strong_limit = 30000;

  DEFVAR_BOOL ("garbage-collection-messages", &garbage_collection_messages,
	       doc: /* Non-nil means display messages at start and end of garbage collection.  */);
  garbage_collection_messages = 0;

83143:9fb10038ca55

/* Two limits controlling how much undo information to keep.  */

EMACS_INT undo_limit;
EMACS_INT undo_strong_limit;
EMACS_INT undo_outer_limit;

/* Number of live and free conses etc.  */

static int total_conses, total_markers, total_symbols, total_vector_size;
static int total_free_conses, total_free_markers, total_free_symbols;

#endif

#ifdef HAVE_POSIX_MEMALIGN
      {
	int err = posix_memalign (&base, BLOCK_ALIGN, ABLOCKS_BYTES);
	if (err)
	  base = NULL;
	abase = base;
      }
#else
      base = malloc (ABLOCKS_BYTES);
      abase = ALIGN (base, BLOCK_ALIGN);
#endif

      if (base == 0)
	{
	  UNBLOCK_INPUT;
	  memory_full ();
	}

      aligned = (base == abase);
      if (!aligned)
	((void**)abase)[-1] = base;

	   Qt tends to return NULL, which effectively turns undo back on.
	   So don't call truncate_undo_list if undo_list is Qt.  */
	if (! EQ (nextb->undo_list, Qt))
	  nextb->undo_list
	    = truncate_undo_list (nextb->undo_list, undo_limit,
				  undo_strong_limit, undo_outer_limit);

	/* Shrink buffer gaps, but skip indirect and dead buffers.  */
	if (nextb->base_buffer == 0 && !NILP (nextb->name))
	  {
	    /* If a buffer's gap size is more than 10% of the buffer

which includes both saved text and other data.  */);
  undo_limit = 20000;

  DEFVAR_INT ("undo-strong-limit", &undo_strong_limit,
	      doc: /* Don't keep more than this much size of undo information.
A previous command which pushes the undo list past this size
is entirely forgotten when GC happens.
The size is counted as the number of bytes occupied,
which includes both saved text and other data.  */);
  undo_strong_limit = 30000;

  DEFVAR_INT ("undo-outer-limit", &undo_outer_limit,
	      doc: /* Don't keep more than this much size of undo information.
If the current command has produced more than this much undo information,
GC discards it.  This is a last-ditch limit to prevent memory overflow.
The size is counted as the number of bytes occupied,
which includes both saved text and other data.  */);
  undo_outer_limit = 300000;

  DEFVAR_BOOL ("garbage-collection-messages", &garbage_collection_messages,
	       doc: /* Non-nil means display messages at start and end of garbage collection.  */);
  garbage_collection_messages = 0;