Mercurial > hg > xemacs-beta

comparison src/alloc.c @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 1917ad0d78d7
children e04119814345
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
2602 if (pure_lossage) 2602 if (pure_lossage)
2603 { 2603 {
2604 CONST long report_round = 5000; 2604 CONST long report_round = 5000;
2605 2605
2606 message ("\n****\tPure Lisp storage exhausted!\n" 2606 message ("\n****\tPure Lisp storage exhausted!\n"
2607 "\tAn additional %ld bytes will guarantee enough pure space;\n" 2607 "\tPurespace usage: %ld of %ld\n"
2608 "\ta smaller increment may work (due to structure-sharing).\n"
2609 "****", 2608 "****",
2610 (((pure_lossage + report_round - 1) 2609 PURESIZE+pure_lossage, PURESIZE);
2611 / report_round) * report_round));
2612 if (die_if_pure_storage_exceeded) { 2610 if (die_if_pure_storage_exceeded) {
2613 PURESIZE_h(PURESIZE + pure_lossage); 2611 PURESIZE_h(PURESIZE + pure_lossage);
2614 rc = -1; 2612 rc = -1;
2615 } 2613 }
2616 } 2614 }