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



    TAG(s) = R_NilValue;
    ATTRIB(s) = R_NilValue;
    return s;
}
 
SEXP attribute_hidden CONS_NR(SEXP car, SEXP cdr)
{
    SEXP s;
    if (FORCE_GC || NO_FREE_NODES()) {
	PROTECT(car);
	PROTECT(cdr);

    SEXP prom = mkPROMISE(expr, R_NilValue);
    SET_PRVALUE(prom, val);
    return prom;
}
 
SEXP attribute_hidden R_mkEVPROMISE_NR(SEXP expr, SEXP val)
{
    SEXP prom = mkPROMISE(expr, R_NilValue);
    DISABLE_REFCNT(prom);
    SET_PRVALUE(prom, val);
    return prom;

Rev 77396	Rev 77453
Line 2425...	Line 2425...
2425	`TAG(s) = R_NilValue;`	2425	`TAG(s) = R_NilValue;`
2426	`ATTRIB(s) = R_NilValue;`	2426	`ATTRIB(s) = R_NilValue;`
2427	`return s;`	2427	`return s;`
2428	`}`	2428	`}`
2429		2429
2430	`SEXP CONS_NR(SEXP car, SEXP cdr)`	2430	`SEXP attribute_hidden CONS_NR(SEXP car, SEXP cdr)`
2431	`{`	2431	`{`
2432	`SEXP s;`	2432	`SEXP s;`
2433	`if (FORCE_GC \|\| NO_FREE_NODES()) {`	2433	`if (FORCE_GC \|\| NO_FREE_NODES()) {`
2434	`PROTECT(car);`	2434	`PROTECT(car);`
2435	`PROTECT(cdr);`	2435	`PROTECT(cdr);`
Line 2562...	Line 2562...
2562	`SEXP prom = mkPROMISE(expr, R_NilValue);`	2562	`SEXP prom = mkPROMISE(expr, R_NilValue);`
2563	`SET_PRVALUE(prom, val);`	2563	`SET_PRVALUE(prom, val);`
2564	`return prom;`	2564	`return prom;`
2565	`}`	2565	`}`
2566		2566
2567	`SEXP R_mkEVPROMISE_NR(SEXP expr, SEXP val)`	2567	`SEXP attribute_hidden R_mkEVPROMISE_NR(SEXP expr, SEXP val)`
2568	`{`	2568	`{`
2569	`SEXP prom = mkPROMISE(expr, R_NilValue);`	2569	`SEXP prom = mkPROMISE(expr, R_NilValue);`
2570	`DISABLE_REFCNT(prom);`	2570	`DISABLE_REFCNT(prom);`
2571	`SET_PRVALUE(prom, val);`	2571	`SET_PRVALUE(prom, val);`
2572	`return prom;`	2572	`return prom;`

The R Project SVN R

(root)/trunk/src/main/memory.c – Rev 77396 → 77453