Perl XS:内存管理

Question

我是Perl XS的新手.

我的简单测试函数获取一个字符串并附加一些内容.在Perl中是一个标量字符串输入和输出.

在函数中我有一个malloc.什么是正确的释放mem的方法？

SV *foo (str)
   SV *str
CODE:
    unsigned char *strbuf;
    size_t strlen;
    strbuf = (unsigned char *) SvPV (str, strlen);

    int n = strlen + 10;
    unsigned char *buf = malloc (n);    

    strncpy (buf, strbuf, strlen);
    strncat (buf, "0123456789", 10);

    RETVAL = newSVpv (buf, n);
OUTPUT:
    RETVAL

谢谢!克里斯

Answer 1

newSVpvfree创建字符串的内部副本，因此您可以通过在分配给 后调用来简单地释放内存RETVAL。