533 |
|
|
534 |
/* Don't allow a buffer size that won't fit in an int |
/* Don't allow a buffer size that won't fit in an int |
535 |
even if it will fit in a Lisp integer. |
even if it will fit in a Lisp integer. |
536 |
That won't work because so many places use `int'. */ |
That won't work because so many places use `int'. |
537 |
|
|
538 |
|
Make sure we don't introduce overflows in the calculation. */ |
539 |
|
|
540 |
if (Z_BYTE - BEG_BYTE + GAP_SIZE + nbytes_added |
if (Z_BYTE - BEG_BYTE + GAP_SIZE |
541 |
>= MOST_POSITIVE_FIXNUM) |
>= (((EMACS_INT) 1 << (min (VALBITS, BITS_PER_INT) - 1)) - 1 |
542 |
|
- nbytes_added)) |
543 |
error ("Buffer exceeds maximum size"); |
error ("Buffer exceeds maximum size"); |
544 |
|
|
545 |
enlarge_buffer_text (current_buffer, nbytes_added); |
enlarge_buffer_text (current_buffer, nbytes_added); |