The R Project SVN R

(root)/branches/R-Cairo/src/main/dotcode.c @ 77458 – Rev 42582 → 44201



    UNPROTECT(1);
    return retval;
}
 
static SEXP
Rf_getCallingDLL(void)
{
    SEXP e, ans;
    RCNTXT *cptr;
    SEXP rho = R_NilValue;
    Rboolean found = FALSE;

Rev 42582	Rev 44201
Line 1557...	Line 1557...
1557	`UNPROTECT(1);`	1557	`UNPROTECT(1);`
1558	`return retval;`	1558	`return retval;`
1559	`}`	1559	`}`
1560		1560
1561	`static SEXP`	1561	`static SEXP`
1562	`Rf_getCallingDLL()`	1562	`Rf_getCallingDLL(void)`
1563	`{`	1563	`{`
1564	`SEXP e, ans;`	1564	`SEXP e, ans;`
1565	`RCNTXT *cptr;`	1565	`RCNTXT *cptr;`
1566	`SEXP rho = R_NilValue;`	1566	`SEXP rho = R_NilValue;`
1567	`Rboolean found = FALSE;`	1567	`Rboolean found = FALSE;`