diff options
| author | Paul Eggert | 2011-11-06 21:37:49 -0800 |
|---|---|---|
| committer | Paul Eggert | 2011-11-06 21:37:49 -0800 |
| commit | ca78dc431fff3bc2a4f33f2a0fc1449608568d23 (patch) | |
| tree | 852659f64eee8bd5aa0e53736d8dcfdde793d8ed /src/alloc.c | |
| parent | 3c6702ef8a797bff39c6e1e4440efab84ca3b8cf (diff) | |
| download | emacs-ca78dc431fff3bc2a4f33f2a0fc1449608568d23.tar.gz emacs-ca78dc431fff3bc2a4f33f2a0fc1449608568d23.zip | |
* alloc.c (DEADP): New macro, for porting to GNU/Hurd (Bug#9926).
This is also needed for porting to any host where GC_MARK_STACK is
not GC_MAKE_GCPROS_NOOPS.
(which_symbols): Use it.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/alloc.c b/src/alloc.c index 210dd7d1687..985e4b71426 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -315,6 +315,7 @@ static POINTER_TYPE *lisp_malloc (size_t, enum mem_type); | |||
| 315 | on free lists recognizable in O(1). */ | 315 | on free lists recognizable in O(1). */ |
| 316 | 316 | ||
| 317 | static Lisp_Object Vdead; | 317 | static Lisp_Object Vdead; |
| 318 | #define DEADP(x) EQ (x, Vdead) | ||
| 318 | 319 | ||
| 319 | #ifdef GC_MALLOC_CHECK | 320 | #ifdef GC_MALLOC_CHECK |
| 320 | 321 | ||
| @@ -411,6 +412,10 @@ static void check_gcpros (void); | |||
| 411 | 412 | ||
| 412 | #endif /* GC_MARK_STACK || GC_MALLOC_CHECK */ | 413 | #endif /* GC_MARK_STACK || GC_MALLOC_CHECK */ |
| 413 | 414 | ||
| 415 | #ifndef DEADP | ||
| 416 | # define DEADP(x) 0 | ||
| 417 | #endif | ||
| 418 | |||
| 414 | /* Recording what needs to be marked for gc. */ | 419 | /* Recording what needs to be marked for gc. */ |
| 415 | 420 | ||
| 416 | struct gcpro *gcprolist; | 421 | struct gcpro *gcprolist; |
| @@ -6261,7 +6266,7 @@ which_symbols (Lisp_Object obj, EMACS_INT find_max) | |||
| 6261 | int gc_count = inhibit_garbage_collection (); | 6266 | int gc_count = inhibit_garbage_collection (); |
| 6262 | Lisp_Object found = Qnil; | 6267 | Lisp_Object found = Qnil; |
| 6263 | 6268 | ||
| 6264 | if (!EQ (obj, Vdead)) | 6269 | if (! DEADP (obj)) |
| 6265 | { | 6270 | { |
| 6266 | for (sblk = symbol_block; sblk; sblk = sblk->next) | 6271 | for (sblk = symbol_block; sblk; sblk = sblk->next) |
| 6267 | { | 6272 | { |