The R Project SVN R

Rev

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

Rev 63147 Rev 63176
Line 1328... Line 1328...
1328 
the call to standardGeneric(), or for primitives, passed as the second
 1328 
the call to standardGeneric(), or for primitives, passed as the second
1329 
argument to standardGeneric.
 1329 
argument to standardGeneric.
1330 
*/
 1330 
*/
1331 
static SEXP get_this_generic(SEXP args)
 1331 
static SEXP get_this_generic(SEXP args)
1332 
{
 1332 
{
- 
 
 1333 
    const void *vmax = vmaxget();
1333 
    SEXP value = R_NilValue; static SEXP gen_name;
 1334 
    SEXP value = R_NilValue; static SEXP gen_name;
1334 
    int i, n;
 1335 
    int i, n;
1335 
    RCNTXT *cptr;
 1336 
    RCNTXT *cptr;
1336 
    const char *fname;
 1337 
    const char *fname;
1337 
 
 1338 
 
Line 1357... Line 1358...
1357 
	      break;
 1358 
	      break;
1358 
	    }
 1359 
	    }
1359 
	}
 1360 
	}
1360 
    }
 1361 
    }
1361 
    UNPROTECT(1);
 1362 
    UNPROTECT(1);
- 
 
 1363 
    vmaxset(vmax);
1362 
    return(value);
 1364 
    return(value);
1363 
}
 1365 
}
1364 
 
 1366 
 
1365 
/* Could there be methods for this op?	Checks
 1367 
/* Could there be methods for this op?	Checks
1366 
   only whether methods are currently being dispatched and, if so,
 1368 
   only whether methods are currently being dispatched and, if so,