comparison src/editfns.c @ 48782:b02bdb795a5c

(Fformat): Use alloca, not _alloca.

48781:d17f48c1b40f

  /* Precision for each spec, or -1, a flag value meaning no precision
     was given in that spec.  Element 0, corresonding to the format
     string itself, will not be used.  Element NARGS, corresponding to
     no argument, *will* be assigned to in the case that a `%' and `.'
     occur after the final format specifier.  */
  int * precision = (int *) (_alloca(nargs * sizeof (int)));
  int longest_format;
  Lisp_Object val;
  struct info
  {
    int start, end;

	      }

	    /* Note that we're using sprintf to print floats,
	       so we have to take into account what that function
	       prints.  */
	    /* Filter out flag value of -1.  This is a conditional with omitted
	       operand: the value is PRECISION[N] if the conditional is >=0 and
	       otherwise is 0. */
	    thissize = MAX_10_EXP + 100 + ((precision[n] > 0)?precision[n]:0);
	  }
	else
	  {
	    /* Anything but a string, convert to a string using princ.  */
	    register Lisp_Object tem;

48782:b02bdb795a5c

  /* Precision for each spec, or -1, a flag value meaning no precision
     was given in that spec.  Element 0, corresonding to the format
     string itself, will not be used.  Element NARGS, corresponding to
     no argument, *will* be assigned to in the case that a `%' and `.'
     occur after the final format specifier.  */
  int *precision = (int *) (alloca(nargs * sizeof (int)));
  int longest_format;
  Lisp_Object val;
  struct info
  {
    int start, end;

	      }

	    /* Note that we're using sprintf to print floats,
	       so we have to take into account what that function
	       prints.  */
	    /* Filter out flag value of -1.  */
	    thissize = MAX_10_EXP + 100 + ((precision[n] > 0) ? precision[n] : 0);
	  }
	else
	  {
	    /* Anything but a string, convert to a string using princ.  */
	    register Lisp_Object tem;