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 }