[Emacs-diffs] Changes to emacs/src/fns.c

[Kim F . Storm]

Index: emacs/src/fns.c
diff -c emacs/src/fns.c:1.378 emacs/src/fns.c:1.379
*** emacs/src/fns.c:1.378       Sun Nov 21 00:57:49 2004
--- emacs/src/fns.c     Mon Nov 29 15:35:15 2004
***************
*** 562,567 ****
--- 562,568 ----
    struct textprop_rec  *textprops = NULL;
    /* Number of elments in textprops.  */
    int num_textprops = 0;
+   USE_SAFE_ALLOCA;
  
    tail = Qnil;
  
***************
*** 670,677 ****
  
    prev = Qnil;
    if (STRINGP (val))
!     textprops
!       = (struct textprop_rec *) alloca (sizeof (struct textprop_rec) * nargs);
  
    for (argnum = 0; argnum < nargs; argnum++)
      {
--- 671,677 ----
  
    prev = Qnil;
    if (STRINGP (val))
!     SAFE_ALLOCA (textprops, struct textprop_rec *, sizeof (struct 
textprop_rec) * nargs);
  
    for (argnum = 0; argnum < nargs; argnum++)
      {
***************
*** 827,832 ****
--- 827,834 ----
          last_to_end = textprops[argnum].to + SCHARS (this);
        }
      }
+ 
+   SAFE_FREE ();
    return val;
  }