The R Project SVN – R – Diff – /trunk/src/main/dotcode.c



	    warning("passing an object of type '%s' to .C (arg %d) is deprecated",
		    type2char(t), na + 1);
	    if (t == LISTSXP)
		warning(_("pairlists are passed as SEXP as from R 2.15.0"));
	    cargs[na] =  (void*) s;
	    break;
	}
	if (nprotect) UNPROTECT(nprotect);
    }
 
    switch (nargs) {

Rev 66568	Rev 67098
Line 1688...	Line 1688...
1688	`warning("passing an object of type '%s' to .C (arg %d) is deprecated",`	1688	`warning("passing an object of type '%s' to .C (arg %d) is deprecated",`
1689	`type2char(t), na + 1);`	1689	`type2char(t), na + 1);`
1690	`if (t == LISTSXP)`	1690	`if (t == LISTSXP)`
1691	`warning(_("pairlists are passed as SEXP as from R 2.15.0"));`	1691	`warning(_("pairlists are passed as SEXP as from R 2.15.0"));`
1692	`cargs[na] = (void*) s;`	1692	`cargs[na] = (void*) s;`
1693	`continue;`	1693	`break;`
1694	`}`	1694	`}`
1695	`if (nprotect) UNPROTECT(nprotect);`	1695	`if (nprotect) UNPROTECT(nprotect);`
1696	`}`	1696	`}`
1697		1697
1698	`switch (nargs) {`	1698	`switch (nargs) {`

The R Project SVN R

(root)/trunk/src/main/dotcode.c – Rev 66568 → 67098