comparison src/insdel.c @ 106108:48d6337584da

(make_gap_larger): Don't make as many assumptions about the representation of Lisp integers. Reported by MJ Chan <[e-mail]>.

106107:a387a3328e51

  EMACS_INT old_gap_size;

  /* If we have to get more space, get enough to last a while.  */
  nbytes_added += 2000;

  /* Don't allow a buffer size that won't fit in an int
     even if it will fit in a Lisp integer.
     That won't work because so many places use `int'.

     Make sure we don't introduce overflows in the calculation.  */

  if (Z_BYTE - BEG_BYTE + GAP_SIZE
      >= (((EMACS_INT) 1 << (min (VALBITS, BITS_PER_INT) - 1)) - 1
	  - nbytes_added))
    error ("Buffer exceeds maximum size");

  enlarge_buffer_text (current_buffer, nbytes_added);

  /* Prevent quitting in move_gap.  */
  tem = Vinhibit_quit;

106108:48d6337584da

  EMACS_INT old_gap_size;

  /* If we have to get more space, get enough to last a while.  */
  nbytes_added += 2000;

  { EMACS_INT total_size = Z_BYTE - BEG_BYTE + GAP_SIZE + nbytes_added;
    if (total_size < 0
	/* Don't allow a buffer size that won't fit in a Lisp integer.  */
	|| total_size != XINT (make_number (total_size))
	/* Don't allow a buffer size that won't fit in an int
	   even if it will fit in a Lisp integer.
	   That won't work because so many places still use `int'.  */
	|| total_size != (EMACS_INT) (int) total_size)
      error ("Buffer exceeds maximum size");
  }

  enlarge_buffer_text (current_buffer, nbytes_added);

  /* Prevent quitting in move_gap.  */
  tem = Vinhibit_quit;