Perl XS 未使用的变量 'Perl___notused' 警告

Question

我正在学习如何从 Perl 调用 C++ 代码并开始尝试从 Perl 脚本创建一个基本的 C++ 对象。

为此，我首先执行 h2xs 命令：

h2xs -A -nMyClass

然后我将以下两个参数添加到生成的 Makefile.PL 以使用 g++ 编译器。

CC => 'g++',
LD => 'g++',

我在 .xs 文件中创建了简单的 class 并编写了 XS 代码以将其映射到 Perl

MyClass.xs

#ifdef __cplusplus
extern "C" {
#endif
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"
#ifdef __cplusplus
}
#endif

class MyClass {
public:
    MyClass(int value) {
        value_ = value;
    }
    ~MyClass() {}

    int value() { return value_; }

    void set_value(int value) {
        value_ = value;
    }
private:
    int value_;
};

MODULE = MyClass                PACKAGE = MyClass

MyClass *
MyClass::new(int value)

void
MyClass::DESTROY()

int
MyClass::value()

void
MyClass::set_value(int value)

然后我创建了类型映射文件以将新类型映射到 Perl。

typemap

TYPEMAP

MyClass *       O_OBJECT

######################################################################
OUTPUT

# The Perl object is blessed into 'CLASS', which should be a
# char* having the name of the package for the blessing.
O_OBJECT
        sv_setref_pv( $arg, CLASS, (void*)$var );

######################################################################
INPUT

O_OBJECT
        if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) )
                $var = ($type)SvIV((SV*)SvRV( $arg ));
        else{
                warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" );
                XSRETURN_UNDEF;
        }

最后我创建了一个简单的测试。

t/MyClass.t

use Test::More tests => 2;
BEGIN { use_ok('MyClass') };

my $obj = MyClass->new(1);
ok($obj->isa('MyClass'), 'MyClass object constructed');

然后我成功地构建了代码并运行了测试。

perl Makefile.PL
make
make test

虽然一切正常，但我在构建时收到了一些警告：

MyClass.c: In function 'void XS_MyClass_new(PerlInterpreter*, CV*)':
MyClass.c:95: warning: unused variable 'Perl___notused'
MyClass.c: In function 'void XS_MyClass_DESTROY(PerlInterpreter*, CV*)':
MyClass.c:119: warning: unused variable 'Perl___notused'
MyClass.c: In function 'void XS_MyClass_value(PerlInterpreter*, CV*)':
MyClass.c:145: warning: unused variable 'Perl___notused'
MyClass.c: In function 'void XS_MyClass_set_value(PerlInterpreter*, CV*)':
MyClass.c:174: warning: unused variable 'Perl___notused'
MyClass.c: In function 'void boot_MyClass(PerlInterpreter*, CV*)':
MyClass.c:203: warning: unused variable 'Perl___notused'

我到处搜索试图找到这些警告的原因，但无法弄清楚发生了什么。所有警告似乎都来自代码中出现在每个函数定义开头的相同重复部分。

里面MyClass.c

XS(XS_MyClass_new); /* prototype to pass -Wmissing-prototypes */
XS(XS_MyClass_new)
{
#ifdef dVAR
    dVAR; dXSARGS; // <-- warning occurs here
#else
    dXSARGS;
#endif
    // function body continues...

有人可以告诉我这些警告的根本原因吗？

我正在使用 Perl v5.10.1 和 g++ 版本 4.4.7

Answer 1

解决方法是使用较新版本的 Perl。 v5.10.1已经很老了，以后的版本不会再出现这些问题了。

我发布了我自己的问题的答案，因为它在评论中得到了回答，但从未发布过官方答案。

Perl XS 未使用的变量 'Perl___notused' 警告

Perl XS unused variable 'Perl___notused' warnings

c++

perl

g++

xs