The R Project SVN R

Rev

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

Rev 27412 Rev 27710
Line 1199... Line 1199...
1199 
   the stored generic function corresponding to the op.	 Requires that
 1199 
   the stored generic function corresponding to the op.	 Requires that
1200 
   the methods be set up to return a special object rather than trying
 1200 
   the methods be set up to return a special object rather than trying
1201 
   to evaluate the default (which would get us into a loop). */
 1201 
   to evaluate the default (which would get us into a loop). */
1202 
SEXP R_possible_dispatch(SEXP call, SEXP op, SEXP args, SEXP rho)
 1202 
SEXP R_possible_dispatch(SEXP call, SEXP op, SEXP args, SEXP rho)
1203 
{
 1203 
{
1204 
    SEXP fundef, value, mlist; int offset; prim_methods_t current;
 1204 
    SEXP fundef, value, mlist=R_NilValue;
- 
 
 1205 
    int offset;
- 
 
 1206 
    prim_methods_t current;
1205 
    offset = PRIMOFFSET(op);
 1207 
    offset = PRIMOFFSET(op);
1206 
    if(offset < 0 || offset > curMaxOffset)
 1208 
    if(offset < 0 || offset > curMaxOffset)
1207 
	error("Invalid primitive operation given for dispatch");
 1209 
	error("Invalid primitive operation given for dispatch");
1208 
    current = prim_methods[offset];
 1210 
    current = prim_methods[offset];
1209 
    if(current == NO_METHODS || current == SUPPRESSED)
 1211 
    if(current == NO_METHODS || current == SUPPRESSED)