c - Perl XS:内存管理

Question

我绝对是Perl XS的新手。

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

在函数中，我有一个malloc。释放内存的正确方法是什么？

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

>newSVpv创建字符串的内部副本，因此您只需在分配给RETVAL后调用free来释放内存。