diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/src/alloc.c b/src/alloc.c index d5de5f7296b..fd366339a53 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -1179,8 +1179,6 @@ emacs_blocked_free (ptr, ptr2) | |||
| 1179 | void *ptr; | 1179 | void *ptr; |
| 1180 | const void *ptr2; | 1180 | const void *ptr2; |
| 1181 | { | 1181 | { |
| 1182 | EMACS_INT bytes_used_now; | ||
| 1183 | |||
| 1184 | BLOCK_INPUT_ALLOC; | 1182 | BLOCK_INPUT_ALLOC; |
| 1185 | 1183 | ||
| 1186 | #ifdef GC_MALLOC_CHECK | 1184 | #ifdef GC_MALLOC_CHECK |
| @@ -4220,9 +4218,14 @@ mark_maybe_pointer (p) | |||
| 4220 | { | 4218 | { |
| 4221 | struct mem_node *m; | 4219 | struct mem_node *m; |
| 4222 | 4220 | ||
| 4223 | /* Quickly rule out some values which can't point to Lisp data. We | 4221 | /* Quickly rule out some values which can't point to Lisp data. */ |
| 4224 | assume that Lisp data is aligned on even addresses. */ | 4222 | if ((EMACS_INT) p % |
| 4225 | if ((EMACS_INT) p & 1) | 4223 | #ifdef USE_LSB_TAG |
| 4224 | 8 /* USE_LSB_TAG needs Lisp data to be aligned on multiples of 8. */ | ||
| 4225 | #else | ||
| 4226 | 2 /* We assume that Lisp data is aligned on even addresses. */ | ||
| 4227 | #endif | ||
| 4228 | ) | ||
| 4226 | return; | 4229 | return; |
| 4227 | 4230 | ||
| 4228 | m = mem_find (p); | 4231 | m = mem_find (p); |