perl - 我是否必须释放用 newHV 创建的 HV*？

Question

如果我编写了一些带有散列的 XS 代码，但我从不希望返回到 perl，我是否必须释放它？如果是这样，如何？

我想出的最接近的是 hv_undef，但这只是清除散列的内容，而不是散列本身，据我所知。

HV* hash = newHV();
...
use the hash
...
hv_undef(hash);

Answer 1

newHV (如 newSV 、 newAV 等)将新创建的值的引用计数设置为 1。要释放它， you just need to decrement it to 0 .对于 HV 没有特殊功能，所以只需使用 SvREFCNT_dec :

HV* hash = newHV();
/*
 * use the hash
 */
SvREFCNT_dec((SV *) hash);