Commit 7c111482 authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(Fformat): Allocated extra (dummy) element in info.

parent ee945d08
2004-07-30 Kim F. Storm <storm@cua.dk>
* editfns.c (Fformat): Allocate extra (dummy) element in info.
2004-07-28 Luc Teirlinck <teirllm@auburn.edu> 2004-07-28 Luc Teirlinck <teirllm@auburn.edu>
   
* eval.c (Fdefvar, Fdefconst): Doc fixes. * eval.c (Fdefvar, Fdefconst): Doc fixes.
......
...@@ -3254,6 +3254,7 @@ usage: (format STRING &rest OBJECTS) */) ...@@ -3254,6 +3254,7 @@ usage: (format STRING &rest OBJECTS) */)
/* Piggyback on this loop to initialize precision[N]. */ /* Piggyback on this loop to initialize precision[N]. */
precision[n] = -1; precision[n] = -1;
} }
precision[nargs] = -1;
CHECK_STRING (args[0]); CHECK_STRING (args[0]);
/* We may have to change "%S" to "%s". */ /* We may have to change "%S" to "%s". */
...@@ -3277,11 +3278,11 @@ usage: (format STRING &rest OBJECTS) */) ...@@ -3277,11 +3278,11 @@ usage: (format STRING &rest OBJECTS) */)
/* Allocate the info and discarded tables. */ /* Allocate the info and discarded tables. */
{ {
int nbytes = nargs * sizeof *info; int nbytes = (nargs+1) * sizeof *info;
int i; int i;
info = (struct info *) alloca (nbytes); info = (struct info *) alloca (nbytes);
bzero (info, nbytes); bzero (info, nbytes);
for (i = 0; i < nargs; i++) for (i = 0; i <= nargs; i++)
info[i].start = -1; info[i].start = -1;
discarded = (char *) alloca (SBYTES (args[0])); discarded = (char *) alloca (SBYTES (args[0]));
bzero (discarded, SBYTES (args[0])); bzero (discarded, SBYTES (args[0]));
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment