126 |
|
|
127 |
int gc_in_progress; |
int gc_in_progress; |
128 |
|
|
129 |
|
/* Nonzero means abort if try to GC. |
130 |
|
This is for code which is written on the assumption that |
131 |
|
no GC will happen, so as to verify that assumption. */ |
132 |
|
|
133 |
|
int abort_on_gc; |
134 |
|
|
135 |
/* Nonzero means display messages at beginning and end of GC. */ |
/* Nonzero means display messages at beginning and end of GC. */ |
136 |
|
|
137 |
int garbage_collection_messages; |
int garbage_collection_messages; |
4099 |
int count = SPECPDL_INDEX (); |
int count = SPECPDL_INDEX (); |
4100 |
EMACS_TIME t1, t2, t3; |
EMACS_TIME t1, t2, t3; |
4101 |
|
|
4102 |
|
if (abort_on_gc) |
4103 |
|
abort (); |
4104 |
|
|
4105 |
EMACS_GET_TIME (t1); |
EMACS_GET_TIME (t1); |
4106 |
|
|
4107 |
/* Can't GC if pure storage overflowed because we can't determine |
/* Can't GC if pure storage overflowed because we can't determine |