# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1233090992 0
# Node ID dfed39918c22d90f7e0df850b1ecc85906145961
# Parent  02b129d40b50ad3cf15882eacc5300fa244594dc
(concat): Check for string overflow (bug#1787).

diff -r 02b129d40b50 -r dfed39918c22 src/fns.c
--- a/src/fns.c	Tue Jan 27 21:16:14 2009 +0000
+++ b/src/fns.c	Tue Jan 27 21:16:32 2009 +0000
@@ -603,6 +603,8 @@
 	}
 
       result_len += len;
+      if (result_len < 0)
+	error ("String overflow");
     }
 
   if (! some_multibyte)