Mercurial > hg > xemacs-beta
comparison src/alloc.c @ 169:15872534500d r20-3b11
Import from CVS: tag r20-3b11
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:46:53 +0200 |
parents | 5a88923fcbfe |
children | 929b76928fce |
comparison
equal
deleted
inserted
replaced
168:9851d5c6556e | 169:15872534500d |
---|---|
2627 CONST long report_round = 5000; | 2627 CONST long report_round = 5000; |
2628 | 2628 |
2629 message ("\n****\tPure Lisp storage exhausted!\n" | 2629 message ("\n****\tPure Lisp storage exhausted!\n" |
2630 "\tPurespace usage: %ld of %ld\n" | 2630 "\tPurespace usage: %ld of %ld\n" |
2631 "****", | 2631 "****", |
2632 PURESIZE+pure_lossage, PURESIZE); | 2632 PURESIZE+pure_lossage, (long) PURESIZE); |
2633 if (die_if_pure_storage_exceeded) { | 2633 if (die_if_pure_storage_exceeded) { |
2634 PURESIZE_h(PURESIZE + pure_lossage); | 2634 PURESIZE_h(PURESIZE + pure_lossage); |
2635 rc = -1; | 2635 rc = -1; |
2636 } | 2636 } |
2637 } | 2637 } |