The R Project SVN R

Rev

Rev 75601 | Rev 75618 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 75601 Rev 75611
Line 2039... Line 2039...
2039 
                  const char *errmsg, const char *warnmsg,
 2039 
                  const char *errmsg, const char *warnmsg,
2040 
                  const char *varname, Rboolean warnByDefault)
 2040 
                  const char *varname, Rboolean warnByDefault)
2041 
{
 2041 
{
2042 
    /* disable GC so that use of this temporary checking code does not
 2042 
    /* disable GC so that use of this temporary checking code does not
2043 
       introduce new PROTECT errors e.g. in asLogical() use */
 2043 
       introduce new PROTECT errors e.g. in asLogical() use */
- 
 
 2044 
    R_CHECK_THREAD("R_BadValueInRCode");
2044 
    int enabled = R_GCEnabled;
 2045 
    int enabled = R_GCEnabled;
2045 
    R_GCEnabled = FALSE;
 2046 
    R_GCEnabled = FALSE;
2046 
    int nprotect = 0;
 2047 
    int nprotect = 0;
2047 
    char *check = getenv(varname);
 2048 
    char *check = getenv(varname);
2048 
    const void *vmax = vmaxget();
 2049 
    const void *vmax = vmaxget();