diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/alloc.c b/src/alloc.c index 43fbbb79bed..3cfc3d61ddd 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -1032,9 +1032,12 @@ lisp_free (void *block) | |||
| 1032 | return; | 1032 | return; |
| 1033 | 1033 | ||
| 1034 | MALLOC_BLOCK_INPUT; | 1034 | MALLOC_BLOCK_INPUT; |
| 1035 | #ifndef GC_MALLOC_CHECK | ||
| 1036 | struct mem_node *m = mem_find (block); | ||
| 1037 | #endif | ||
| 1035 | free (block); | 1038 | free (block); |
| 1036 | #ifndef GC_MALLOC_CHECK | 1039 | #ifndef GC_MALLOC_CHECK |
| 1037 | mem_delete (mem_find (block)); | 1040 | mem_delete (m); |
| 1038 | #endif | 1041 | #endif |
| 1039 | MALLOC_UNBLOCK_INPUT; | 1042 | MALLOC_UNBLOCK_INPUT; |
| 1040 | } | 1043 | } |