The R Project SVN R

Rev

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

Rev 85580 Rev 85713
Line 580... Line 580...
580 
 
 580 
 
581 
    vmaxset(vmax);
 581 
    vmaxset(vmax);
582 
    return check_retval(call, retval);
 582 
    return check_retval(call, retval);
583 
}
 583 
}
584 
 
 584 
 
- 
 
 585 
typedef SEXP (*FUNS0)(void);
585 
typedef SEXP (*FUNS1)(SEXP);
 586 
typedef SEXP (*FUNS1)(SEXP);
586 
typedef SEXP (*FUNS2)(SEXP, SEXP);
 587 
typedef SEXP (*FUNS2)(SEXP, SEXP);
587 
typedef SEXP (*FUNS3)(SEXP, SEXP, SEXP);
 588 
typedef SEXP (*FUNS3)(SEXP, SEXP, SEXP);
588 
typedef SEXP (*FUNS4)(SEXP, SEXP, SEXP, SEXP);
 589 
typedef SEXP (*FUNS4)(SEXP, SEXP, SEXP, SEXP);
589 
typedef SEXP (*FUNS5)(SEXP, SEXP, SEXP, SEXP, SEXP);
 590 
typedef SEXP (*FUNS5)(SEXP, SEXP, SEXP, SEXP, SEXP);
Line 860... Line 861...
860 
attribute_hidden SEXP R_doDotCall(DL_FUNC fun, int nargs, SEXP *cargs,
 861 
attribute_hidden SEXP R_doDotCall(DL_FUNC fun, int nargs, SEXP *cargs,
861 
				  SEXP call) {
 862 
				  SEXP call) {
862 
    SEXP retval = R_NilValue;	/* -Wall */
 863 
    SEXP retval = R_NilValue;	/* -Wall */
863 
    switch (nargs) {
 864 
    switch (nargs) {
864 
    case 0:
 865 
    case 0:
865 
	retval = (SEXP)fun();
 866 
	retval = (SEXP)((FUNS0)fun)();
866 
	break;
 867 
	break;
867 
    case 1:
 868 
    case 1:
868 
	retval = (SEXP)((FUNS1)fun)(cargs[0]);
 869 
	retval = (SEXP)((FUNS1)fun)(cargs[0]);
869 
	break;
 870 
	break;
870 
    case 2:
 871 
    case 2:
Line 2067... Line 2068...
2067 
	if (nprotect) UNPROTECT(nprotect);
 2068 
	if (nprotect) UNPROTECT(nprotect);
2068 
    }
 2069 
    }
2069 
 
 2070 
 
2070 
    switch (nargs) {
 2071 
    switch (nargs) {
2071 
    case 0:
 2072 
    case 0:
2072 
	fun();
 2073 
	((FUNS0)fun)();
2073 
	break;
 2074 
	break;
2074 
    case 1:
 2075 
    case 1:
2075 
	((FUNS1)fun)(cargs[0]);
 2076 
	((FUNS1)fun)(cargs[0]);
2076 
	break;
 2077 
	break;
2077 
    case 2:
 2078 
    case 2: