# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1101742515 0
# Node ID 834b3aeb850f1b86a4d37c184d7cb5d59ffc04a0
# Parent  5415af0b57e1fc0d79bdefbc6f5f9bd9eec236fd
(concat): Use SAFE_ALLOCA.

diff -r 5415af0b57e1 -r 834b3aeb850f src/fns.c
--- a/src/fns.c	Mon Nov 29 15:34:57 2004 +0000
+++ b/src/fns.c	Mon Nov 29 15:35:15 2004 +0000
@@ -562,6 +562,7 @@
   struct textprop_rec  *textprops = NULL;
   /* Number of elments in textprops.  */
   int num_textprops = 0;
+  USE_SAFE_ALLOCA;
 
   tail = Qnil;
 
@@ -670,8 +671,7 @@
 
   prev = Qnil;
   if (STRINGP (val))
-    textprops
-      = (struct textprop_rec *) alloca (sizeof (struct textprop_rec) * nargs);
+    SAFE_ALLOCA (textprops, struct textprop_rec *, sizeof (struct textprop_rec) * nargs);
 
   for (argnum = 0; argnum < nargs; argnum++)
     {
@@ -827,6 +827,8 @@
 	  last_to_end = textprops[argnum].to + SCHARS (this);
 	}
     }
+
+  SAFE_FREE ();
   return val;
 }