Mercurial > hg > xemacs-beta

comparison src/alloc.c @ 175:2d532a89d707 r20-3b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200
parents 8eaf7971accc
children 6075d714658b
comparison
equal deleted inserted replaced
174:bb3568571b84 175:2d532a89d707
2620 { 2620 {
2621 int rc = 0; 2621 int rc = 0;
2622 2622
2623 if (pure_lossage) 2623 if (pure_lossage)
2624 { 2624 {
2625 CONST long report_round = 5000;
2626
2627 message ("\n****\tPure Lisp storage exhausted!\n" 2625 message ("\n****\tPure Lisp storage exhausted!\n"
2628 "\tPurespace usage: %ld of %ld\n" 2626 "\tPurespace usage: %ld of %ld\n"
2629 "****", 2627 "****",
2630 get_PURESIZE()+pure_lossage, (long) get_PURESIZE()); 2628 get_PURESIZE()+pure_lossage, (long) get_PURESIZE());
2631 if (die_if_pure_storage_exceeded) { 2629 if (die_if_pure_storage_exceeded) {