Mercurial > hg > xemacs-beta

diff src/alloc.c @ 195:a2f645c6b9f8 r20-3b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b24
author cvs
date Mon, 13 Aug 2007 09:59:05 +0200
parents 3d6bfa290dbd
children e45d5e7c476e
line wrap: on
line diff
--- a/src/alloc.c	Mon Aug 13 09:58:32 2007 +0200
+++ b/src/alloc.c	Mon Aug 13 09:59:05 2007 +0200
@@ -2624,6 +2624,8 @@
     {
       int lost = (get_PURESIZE() - pureptr) / 1024;
       char buf[200];
+      extern Lisp_Object Vemacs_beta_version;
+      int slop = NILP(Vemacs_beta_version) ? 512 : 4;
 
       sprintf (buf, "Purespace usage: %ld of %ld (%d%%",
                pureptr, (long) get_PURESIZE(),
@@ -2631,7 +2633,7 @@
       if (lost > 2) {
         sprintf (buf + strlen (buf), " -- %dk wasted", lost);
 	if (die_if_pure_storage_exceeded) {
-	  puresize_adjust_h (pureptr + 16);
+	  puresize_adjust_h (pureptr + slop);
 	  rc = -1;
 	}
       }