(Fformat): Allocated extra (dummy) element in info.
This commit is contained in:
parent
ee945d0839
commit
7c111482b9
2 changed files with 7 additions and 2 deletions
|
@ -1,3 +1,7 @@
|
|||
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>
|
||||
|
||||
* eval.c (Fdefvar, Fdefconst): Doc fixes.
|
||||
|
|
|
@ -3254,6 +3254,7 @@ usage: (format STRING &rest OBJECTS) */)
|
|||
/* Piggyback on this loop to initialize precision[N]. */
|
||||
precision[n] = -1;
|
||||
}
|
||||
precision[nargs] = -1;
|
||||
|
||||
CHECK_STRING (args[0]);
|
||||
/* We may have to change "%S" to "%s". */
|
||||
|
@ -3277,11 +3278,11 @@ usage: (format STRING &rest OBJECTS) */)
|
|||
|
||||
/* Allocate the info and discarded tables. */
|
||||
{
|
||||
int nbytes = nargs * sizeof *info;
|
||||
int nbytes = (nargs+1) * sizeof *info;
|
||||
int i;
|
||||
info = (struct info *) alloca (nbytes);
|
||||
bzero (info, nbytes);
|
||||
for (i = 0; i < nargs; i++)
|
||||
for (i = 0; i <= nargs; i++)
|
||||
info[i].start = -1;
|
||||
discarded = (char *) alloca (SBYTES (args[0]));
|
||||
bzero (discarded, SBYTES (args[0]));
|
||||
|
|
Loading…
Add table
Reference in a new issue