diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/alloc.c b/src/alloc.c index 337668f9c31..fb8a8c98b08 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -2655,8 +2655,6 @@ make_float (double float_value) | |||
| 2655 | 2655 | ||
| 2656 | if (float_free_list) | 2656 | if (float_free_list) |
| 2657 | { | 2657 | { |
| 2658 | /* We use the data field for chaining the free list | ||
| 2659 | so that we won't use the same field that has the mark bit. */ | ||
| 2660 | XSETFLOAT (val, float_free_list); | 2658 | XSETFLOAT (val, float_free_list); |
| 2661 | float_free_list = float_free_list->u.chain; | 2659 | float_free_list = float_free_list->u.chain; |
| 2662 | } | 2660 | } |
| @@ -2760,8 +2758,6 @@ DEFUN ("cons", Fcons, Scons, 2, 2, 0, | |||
| 2760 | 2758 | ||
| 2761 | if (cons_free_list) | 2759 | if (cons_free_list) |
| 2762 | { | 2760 | { |
| 2763 | /* We use the cdr for chaining the free list | ||
| 2764 | so that we won't use the same field that has the mark bit. */ | ||
| 2765 | XSETCONS (val, cons_free_list); | 2761 | XSETCONS (val, cons_free_list); |
| 2766 | cons_free_list = cons_free_list->u.s.u.chain; | 2762 | cons_free_list = cons_free_list->u.s.u.chain; |
| 2767 | } | 2763 | } |