diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/src/alloc.c b/src/alloc.c index 5bbd5e55c42..1092a34801a 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -231,12 +231,6 @@ EMACS_INT memory_full_cons_threshold; | |||
| 231 | 231 | ||
| 232 | bool gc_in_progress; | 232 | bool gc_in_progress; |
| 233 | 233 | ||
| 234 | /* True means abort if try to GC. | ||
| 235 | This is for code which is written on the assumption that | ||
| 236 | no GC will happen, so as to verify that assumption. */ | ||
| 237 | |||
| 238 | bool abort_on_gc; | ||
| 239 | |||
| 240 | /* Number of live and free conses etc. */ | 234 | /* Number of live and free conses etc. */ |
| 241 | 235 | ||
| 242 | static EMACS_INT total_conses, total_markers, total_symbols, total_buffers; | 236 | static EMACS_INT total_conses, total_markers, total_symbols, total_buffers; |
| @@ -5675,9 +5669,6 @@ garbage_collect_1 (void *end) | |||
| 5675 | Lisp_Object retval = Qnil; | 5669 | Lisp_Object retval = Qnil; |
| 5676 | size_t tot_before = 0; | 5670 | size_t tot_before = 0; |
| 5677 | 5671 | ||
| 5678 | if (abort_on_gc) | ||
| 5679 | emacs_abort (); | ||
| 5680 | |||
| 5681 | /* Can't GC if pure storage overflowed because we can't determine | 5672 | /* Can't GC if pure storage overflowed because we can't determine |
| 5682 | if something is a pure object or not. */ | 5673 | if something is a pure object or not. */ |
| 5683 | if (pure_bytes_used_before_overflow) | 5674 | if (pure_bytes_used_before_overflow) |