Mercurial > hg > xemacs-beta
comparison src/dumper.c @ 2994:ec5f23ea6d2e
[xemacs-hg @ 2005-10-14 01:21:57 by ben]
add gc percentage threshold to mc-alloc
config.h.in, alloc.c, dumper.c, emacs.c, lrecord.h, mc-alloc.c, mc-alloc.h, symbols.c: Rename MC_ALLOC_TYPE_STATS to ALLOC_TYPE_STATS, since
(with refactoring) this is not really specific to mc-alloc.
Generalize code to implement the GC % threshold for garbage
collecting. Rename `lrecord-stats' to `object-memory-usage-stats'
(defined when not mc-alloc, too). Rename `memory-usage' to
`total-memory-usage' and add `object-memory-usage'. Bump
gc_cons_threshold to 2,000,000 (suggestion by Stephen Turnbull).
Avoid use of C++ reserved word `catch'.
Change address for crash reporting to xemacs-beta@xemacs.org from
crashes@xemacs.org.
new -> new_ in emacs.c.
Turn on _CRT_SECURE_NO_DEPRECATE under Visual C++ to avoid tons of
warnings in VC8.
| author | ben |
|---|---|
| date | Fri, 14 Oct 2005 01:22:01 +0000 |
| parents | f39be22beaf1 |
| children | 141c2920ea48 |
comparison
equal
deleted
inserted
replaced
| 2993:49316578f12d | 2994:ec5f23ea6d2e |
|---|---|
| 2162 { | 2162 { |
| 2163 Bytecount real_size = size * elt_count; | 2163 Bytecount real_size = size * elt_count; |
| 2164 if (count == 2) | 2164 if (count == 2) |
| 2165 { | 2165 { |
| 2166 mc_addr = (Rawbyte *) mc_alloc (real_size); | 2166 mc_addr = (Rawbyte *) mc_alloc (real_size); |
| 2167 #ifdef MC_ALLOC_TYPE_STATS | 2167 #ifdef ALLOC_TYPE_STATS |
| 2168 inc_lrecord_stats (real_size, | 2168 inc_lrecord_stats (real_size, |
| 2169 (const struct lrecord_header *) | 2169 (const struct lrecord_header *) |
| 2170 ((char *) rdata + delta)); | 2170 ((char *) rdata + delta)); |
| 2171 if (((const struct lrecord_header *) | 2171 if (((const struct lrecord_header *) |
| 2172 ((char *) rdata + delta))->type | 2172 ((char *) rdata + delta))->type |
| 2173 == lrecord_type_string) | 2173 == lrecord_type_string) |
| 2174 inc_lrecord_string_data_stats | 2174 inc_lrecord_string_data_stats |
| 2175 (((Lisp_String *) ((char *) rdata + delta))->size_); | 2175 (((Lisp_String *) ((char *) rdata + delta))->size_); |
| 2176 #endif /* not MC_ALLOC_TYPE_STATS */ | 2176 #endif /* ALLOC_TYPE_STATS */ |
| 2177 } | 2177 } |
| 2178 else | 2178 else |
| 2179 mc_addr = (Rawbyte *) xmalloc_and_zero (real_size); | 2179 mc_addr = (Rawbyte *) xmalloc_and_zero (real_size); |
| 2180 } | 2180 } |
| 2181 else | 2181 else |