10

我现在多次重新阅读有关编写 R 扩展的垃圾收集的内容，但仍然不明白这两种用法之间的区别：

SEXP var = PROTECT(allocVector(STRSXP, 100));

对比

SEXP var;
PROTECT(var = allocVector(STRSXP, 100));

到目前为止，我在第一个方面的运气更差，因为我的会话有时会崩溃（但我在真实代码和介绍指南本身中都看到了很多用法）。有人可以解释这两个任务之间的区别吗？

编辑：

经过一些实验后，我想我得出的结论是，上述两者之间没有区别，而且我看到的碰撞行为的任何差异都是偶然的，但希望得到更有经验的人的确认。

4

1 回答 1

7

它是严格等价的。这是 PROTECT 调用的函数（来自https://svn.r-project.org/R/trunk/src/main/memory.c）

SEXP protect(SEXP s)
{
    if (R_PPStackTop >= R_PPStackSize)
    R_signal_protect_error();
    R_PPStack[R_PPStackTop++] = CHK(s);
    return s;
}

static R_INLINE SEXP CHK(SEXP x)
{
    /* **** NULL check because of R_CurrentExpr */
    if (x != NULL && TYPEOF(x) == FREESXP)
    error("unprotected object (%p) encountered (was %s)",
          x, sexptype2char(OLDTYPE(x)));
    return x;
}
#else
#define CHK(x) x
#endif

和来自.include/Rinternals.h：

#define TYPEOF(x)   ((x)->sxpinfo.type)

如您所见，指针参数原样返回，因此

var = PROTECT(p)
PROTECT(var = p)

是等价的

于 2013-10-23T12:29:00.033 回答