comparison src/editfns.c @ 50746:2a57a6e6b390

(Fformat): Set abort_on_gc during first scan of format. Reinit FORMAT_START and END before second scan.

50745:fedd03de0f46

  CHECK_STRING (args[0]);
  /* We may have to change "%S" to "%s". */
  args[0] = Fcopy_sequence (args[0]);

  /* If we start out planning a unibyte result,
     and later find it has to be multibyte, we jump back to retry.  */
 retry:

  format = SDATA (args[0]);
  format_start = format;
  end = format + SBYTES (args[0]);

	thissize += max (0, field_width - actual_width);
	total += thissize + 4;
      }

  /* Now we can no longer jump to retry.
     TOTAL and LONGEST_FORMAT are known for certain.  */

  this_format = (unsigned char *) alloca (longest_format + 1);

  nchars = 0;
  n = 0;

  /* Scan the format and store result in BUF.  */
  format = SDATA (args[0]);
  maybe_combine_byte = 0;
  while (format != end)
    {
      if (*format == '%')
	{

50746:2a57a6e6b390

  CHECK_STRING (args[0]);
  /* We may have to change "%S" to "%s". */
  args[0] = Fcopy_sequence (args[0]);

  /* GC should never happen here, so abort if it does.  */
  abort_on_gc++;

  /* If we start out planning a unibyte result,
     then discover it has to be multibyte, we jump back to retry.
     That can only happen from the first large while loop below.  */
 retry:

  format = SDATA (args[0]);
  format_start = format;
  end = format + SBYTES (args[0]);

	thissize += max (0, field_width - actual_width);
	total += thissize + 4;
      }

  abort_on_gc--;

  /* Now we can no longer jump to retry.
     TOTAL and LONGEST_FORMAT are known for certain.  */

  this_format = (unsigned char *) alloca (longest_format + 1);

  nchars = 0;
  n = 0;

  /* Scan the format and store result in BUF.  */
  format = SDATA (args[0]);
  format_start = format;
  end = format + SBYTES (args[0]);
  maybe_combine_byte = 0;
  while (format != end)
    {
      if (*format == '%')
	{