Mercurial > hg > xemacs-beta

comparison src/alloc.c @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents cf808b4c4290
children fe104dbd9147
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
2612 Fcons(build_ext_string(PURESIZE_h_file, FORMAT_FILENAME), 2612 Fcons(build_ext_string(PURESIZE_h_file, FORMAT_FILENAME),
2613 Qnil)); 2613 Qnil));
2614 } 2614 }
2615 2615
2616 write(fd, WARNING, strlen(WARNING)); 2616 write(fd, WARNING, strlen(WARNING));
2617 sprintf(define_PURESIZE, "# define PURESIZE_ADJUSTMENT %ld\n", 2617 sprintf(define_PURESIZE, "# define PURESIZE_ADJUSTMENT (%ld)\n",
2618 puresize - RAW_PURESIZE); 2618 puresize - RAW_PURESIZE);
2619 write(fd, define_PURESIZE, strlen(define_PURESIZE)); 2619 write(fd, define_PURESIZE, strlen(define_PURESIZE));
2620 close(fd); 2620 close(fd);
2621 } 2621 }
2622 2622
2629 if (pure_lossage) 2629 if (pure_lossage)
2630 { 2630 {
2631 CONST long report_round = 5000; 2631 CONST long report_round = 5000;
2632 2632
2633 message ("\n****\tPure Lisp storage exhausted!\n" 2633 message ("\n****\tPure Lisp storage exhausted!\n"
2634 "\tAn additional %ld bytes will guarantee enough pure space;\n" 2634 "\tPurespace usage: %ld of %ld\n"
2635 "\ta smaller increment may work (due to structure-sharing).\n"
2636 "****", 2635 "****",
2637 (((pure_lossage + report_round - 1) 2636 PURESIZE+pure_lossage, PURESIZE);
2638 / report_round) * report_round));
2639 if (die_if_pure_storage_exceeded) { 2637 if (die_if_pure_storage_exceeded) {
2640 PURESIZE_h(PURESIZE + pure_lossage); 2638 PURESIZE_h(PURESIZE + pure_lossage);
2641 rc = -1; 2639 rc = -1;
2642 } 2640 }
2643 } 2641 }