[Emacs-diffs] emacs/src fns.c

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/01/27 21:16:32

Modified files:
        src            : fns.c 

Log message:
        (concat): Check for string overflow (bug#1787).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/src/fns.c?cvsroot=emacs&r1=1.455&r2=1.456

Patches:
Index: fns.c
===================================================================
RCS file: /sources/emacs/emacs/src/fns.c,v
retrieving revision 1.455
retrieving revision 1.456
diff -u -b -r1.455 -r1.456
--- fns.c       19 Jan 2009 15:13:31 -0000      1.455
+++ fns.c       27 Jan 2009 21:16:32 -0000      1.456
@@ -603,6 +603,8 @@
        }
 
       result_len += len;
+      if (result_len < 0)
+       error ("String overflow");
     }
 
   if (! some_multibyte)