mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(Fformat): Set abort_on_gc during first scan of format.

Browse Source 
Reinit FORMAT_START and END before second scan.
This commit is contained in:
Richard M. Stallman 2003-04-30 12:05:37 +00:00
parent 3de0effb43
commit 67965a9816
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/editfns.c
View File

@ -3255,8 +3255,12 @@ usage: (format STRING &rest OBJECTS) */)
/* 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,
and later find it has to be multibyte, we jump back to retry. */
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]);
@ -3456,6 +3460,8 @@ usage: (format STRING &rest OBJECTS) */)
total += thissize + 4;
}
abort_on_gc--;
/* Now we can no longer jump to retry.
TOTAL and LONGEST_FORMAT are known for certain. */
@ -3474,6 +3480,8 @@ usage: (format STRING &rest OBJECTS) */)
/* 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)
{