diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-14 16:36:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-14 16:36:25 +0000 |
| commit | 12ae29ebfbb03d3856ca97ab0b555d58d11172b4 (patch) | |
| tree | 53763091bb285736c970357872044a85be758f64 /src/alloc.c | |
| parent | 2f88891677d36a9826395f727fe97d4117cc13e6 (diff) | |
| download | emacs-12ae29ebfbb03d3856ca97ab0b555d58d11172b4.tar.gz emacs-12ae29ebfbb03d3856ca97ab0b555d58d11172b4.tar.bz2 emacs-12ae29ebfbb03d3856ca97ab0b555d58d11172b4.zip | |
(mark_object) [DEBUG_MOLE]: Add abort at beginning.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/alloc.c b/src/alloc.c index e6edea42c95..07775391bfb 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -1460,6 +1460,11 @@ mark_object (objptr) { register Lisp_Object obj; +#ifdef DEBUG_MOLE + if (*(int *) ((char *)__builtin_frame_address (0) - 16) == 0) + abort (); +#endif + obj = *objptr; XUNMARK (obj); |