The R Project SVN – R – Diff – /trunk/src/main/errors.c



    result = eval(e, R_BaseEnv );
    UNPROTECT(7);
    return result;
}
 
static char errbuf[BUFSIZE + 1]; /* add 1 to leave room for a null byte */
 
#define ERRBUFCAT(txt) Rstrncat(errbuf, txt, BUFSIZE - strlen(errbuf))
 
const char *R_curErrorBuf() {
    return (const char *)errbuf;

Rev 75618	Rev 76840
Line 659...	Line 659...
659	`result = eval(e, R_BaseEnv );`	659	`result = eval(e, R_BaseEnv );`
660	`UNPROTECT(7);`	660	`UNPROTECT(7);`
661	`return result;`	661	`return result;`
662	`}`	662	`}`
663		663
664	`static char errbuf[BUFSIZE];`	664	`static char errbuf[BUFSIZE + 1]; /* add 1 to leave room for a null byte */`
665		665
666	`#define ERRBUFCAT(txt) Rstrncat(errbuf, txt, BUFSIZE - strlen(errbuf))`	666	`#define ERRBUFCAT(txt) Rstrncat(errbuf, txt, BUFSIZE - strlen(errbuf))`
667		667
668	`const char *R_curErrorBuf() {`	668	`const char *R_curErrorBuf() {`
669	`return (const char *)errbuf;`	669	`return (const char *)errbuf;`

The R Project SVN R

(root)/trunk/src/main/errors.c @ 77458 – Rev 75618 → 76840