diff options
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 8 |
1 files changed, 4 insertions, 4 deletions
| @@ -1604,7 +1604,7 @@ changing the value of a sequence `foo'. */) | |||
| 1604 | 1604 | ||
| 1605 | for (i = n = 0; i < ASIZE (seq); ++i) | 1605 | for (i = n = 0; i < ASIZE (seq); ++i) |
| 1606 | if (NILP (Fequal (AREF (seq, i), elt))) | 1606 | if (NILP (Fequal (AREF (seq, i), elt))) |
| 1607 | p->contents[n++] = AREF (seq, i); | 1607 | p->u.contents[n++] = AREF (seq, i); |
| 1608 | 1608 | ||
| 1609 | XSETVECTOR (seq, p); | 1609 | XSETVECTOR (seq, p); |
| 1610 | } | 1610 | } |
| @@ -3450,7 +3450,7 @@ larger_vector (Lisp_Object vec, ptrdiff_t incr_min, ptrdiff_t nitems_max) | |||
| 3450 | { | 3450 | { |
| 3451 | struct Lisp_Vector *v; | 3451 | struct Lisp_Vector *v; |
| 3452 | ptrdiff_t i, incr, incr_max, old_size, new_size; | 3452 | ptrdiff_t i, incr, incr_max, old_size, new_size; |
| 3453 | ptrdiff_t C_language_max = min (PTRDIFF_MAX, SIZE_MAX) / sizeof *v->contents; | 3453 | ptrdiff_t C_language_max = min (PTRDIFF_MAX, SIZE_MAX) / sizeof *v->u.contents; |
| 3454 | ptrdiff_t n_max = (0 <= nitems_max && nitems_max < C_language_max | 3454 | ptrdiff_t n_max = (0 <= nitems_max && nitems_max < C_language_max |
| 3455 | ? nitems_max : C_language_max); | 3455 | ? nitems_max : C_language_max); |
| 3456 | eassert (VECTORP (vec)); | 3456 | eassert (VECTORP (vec)); |
| @@ -3462,9 +3462,9 @@ larger_vector (Lisp_Object vec, ptrdiff_t incr_min, ptrdiff_t nitems_max) | |||
| 3462 | memory_full (SIZE_MAX); | 3462 | memory_full (SIZE_MAX); |
| 3463 | new_size = old_size + incr; | 3463 | new_size = old_size + incr; |
| 3464 | v = allocate_vector (new_size); | 3464 | v = allocate_vector (new_size); |
| 3465 | memcpy (v->contents, XVECTOR (vec)->contents, old_size * sizeof *v->contents); | 3465 | memcpy (v->u.contents, XVECTOR (vec)->u.contents, old_size * sizeof *v->u.contents); |
| 3466 | for (i = old_size; i < new_size; ++i) | 3466 | for (i = old_size; i < new_size; ++i) |
| 3467 | v->contents[i] = Qnil; | 3467 | v->u.contents[i] = Qnil; |
| 3468 | XSETVECTOR (vec, v); | 3468 | XSETVECTOR (vec, v); |
| 3469 | return vec; | 3469 | return vec; |
| 3470 | } | 3470 | } |