The R Project SVN R

(root)/trunk/src/main/errors.c – Rev 33550 → 33553



}
 
void PrintWarnings(void)
{
    int i;
    char *header;
    SEXP names, s, t;
    RCNTXT cntxt;
 
    if (R_CollectWarnings == 0)
	return;
    else if (inPrintWarnings) {

Rev 33550	Rev 33553
Line 330...	Line 330...
330	`}`	330	`}`
331		331
332	`void PrintWarnings(void)`	332	`void PrintWarnings(void)`
333	`{`	333	`{`
334	`int i;`	334	`int i;`
-		335	`char *header;`
335	`SEXP names, s, t, header;`	336	`SEXP names, s, t;`
336	`RCNTXT cntxt;`	337	`RCNTXT cntxt;`
337		338
338	`if (R_CollectWarnings == 0)`	339	`if (R_CollectWarnings == 0)`
339	`return;`	340	`return;`
340	`else if (inPrintWarnings) {`	341	`else if (inPrintWarnings) {`