The R Project SVN R

Rev

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

Rev 51267 Rev 51268
Line 2177... Line 2177...
2177 
 
 2177 
 
2178 
/* this is primitive */
 2178 
/* this is primitive */
2179 
SEXP attribute_hidden do_gctime(SEXP call, SEXP op, SEXP args, SEXP env)
 2179 
SEXP attribute_hidden do_gctime(SEXP call, SEXP op, SEXP args, SEXP env)
2180 
{
 2180 
{
2181 
    SEXP ans;
 2181 
    SEXP ans;
2182 
    check1arg(args, call, "on");
 - 
 
2183 
 
 2182 
 
2184 
    if (args == R_NilValue)
 2183 
    if (args == R_NilValue)
2185 
	gctime_enabled = TRUE;
 2184 
	gctime_enabled = TRUE;
2186 
    else
 2185 
    else {
- 
 
 2186 
	check1arg(args, call, "on");
2187 
	gctime_enabled = asLogical(CAR(args));
 2187 
	gctime_enabled = asLogical(CAR(args));
- 
 
 2188 
    }
2188 
    ans = allocVector(REALSXP, 5);
 2189 
    ans = allocVector(REALSXP, 5);
2189 
    REAL(ans)[0] = gctimes[0];
 2190 
    REAL(ans)[0] = gctimes[0];
2190 
    REAL(ans)[1] = gctimes[1];
 2191 
    REAL(ans)[1] = gctimes[1];
2191 
    REAL(ans)[2] = gctimes[2];
 2192 
    REAL(ans)[2] = gctimes[2];
2192 
    REAL(ans)[3] = gctimes[3];
 2193 
    REAL(ans)[3] = gctimes[3];