The R Project SVN R

Rev

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

Rev 30832 Rev 31319
Line 611... Line 611...
611 
    R_RegisteredNativeSymbol symbol = {R_CALL_SYM, {NULL}, NULL};
 611 
    R_RegisteredNativeSymbol symbol = {R_CALL_SYM, {NULL}, NULL};
612 
    int nargs;
 612 
    int nargs;
613 
    char *vmax = vmaxget();
 613 
    char *vmax = vmaxget();
614 
    char buf[128];
 614 
    char buf[128];
615 
 
 615 
 
- 
 
 616 
    op = CAR(args);
616 
    args = resolveNativeRoutine(args, &fun, &symbol, buf, NULL, NULL, NULL, call);
 617 
    args = resolveNativeRoutine(args, &fun, &symbol, buf, NULL, NULL, NULL, call);
617 
    args = CDR(args);
 618 
    args = CDR(args);
618 
 
 619 
 
619 
    for(nargs = 0, pargs = args ; pargs != R_NilValue; pargs = CDR(pargs)) {
 620 
    for(nargs = 0, pargs = args ; pargs != R_NilValue; pargs = CDR(pargs)) {
620 
        if (nargs == MAX_ARGS)
 621 
        if (nargs == MAX_ARGS)