(make_gap): Don't allow buffer size that won't fit in int.

1 files changed, 8 insertions, 0 deletions

diff --git a/src/insdel.c b/src/insdel.c
index bf4a7e74f01..59c789a4e82 100644
--- a/src/insdel.c
+++ b/src/insdel.c
@@ -271,6 +271,14 @@ make_gap (increment)
   /* If we have to get more space, get enough to last a while.  */
   increment += 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'.  */
+     
+  if (VALBITS > INTBITS
+      && (Z - BEG + GAP_SIZE + increment) >= ((unsigned) 1 << (INTBITS - 1)))
+    error ("Buffer too big");
+
   BLOCK_INPUT;
   result = BUFFER_REALLOC (BEG_ADDR, (Z - BEG + GAP_SIZE + increment));