From 2ec7f67a91cc52b23058136d4bb915a0b3c6974e Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Mon, 29 Nov 2004 15:35:15 +0000 Subject: [PATCH] (concat): Use SAFE_ALLOCA. --- src/fns.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/fns.c b/src/fns.c index c436649f73d..457be6c96a9 100644 --- a/src/fns.c +++ b/src/fns.c @@ -562,6 +562,7 @@ concat (nargs, args, target_type, last_special) struct textprop_rec *textprops = NULL; /* Number of elments in textprops. */ int num_textprops = 0; + USE_SAFE_ALLOCA; tail = Qnil; @@ -670,8 +671,7 @@ concat (nargs, args, target_type, last_special) 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 @@ concat (nargs, args, target_type, last_special) last_to_end = textprops[argnum].to + SCHARS (this); } } + + SAFE_FREE (); return val; } -- 2.39.5