c语言protect,PROTECT应该包含什么作业？

这是完全相同的.这是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

和from.include / Rinternals.h：

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

可以看到,指针参数不变地返回,所以

var = PROTECT(p)

PROTECT(var = p)

是等同的