"内联C"问题

Question

#!/usr/bin/env perl
use warnings;
use 5.012;
use Inline 'C';

my $value = test();
say $value;

__END__
__C__
void test() {
    int a = 4294967294;
    Inline_Stack_Vars;
    Inline_Stack_Reset;
    Inline_Stack_Push( sv_2mortal( newSViv( a ) ) );
    Inline_Stack_Done;
}

输出:

-2

为什么我输入"-2"的输出？

Answer 1

int a使用可能是32位表示.unsigned int如果要表示高于4,294,967,296/2的值,则应使用.

Answer 2

Perl支持有符号和无符号整数,并且它的运算符将在它们之间很好地切换,但是你明确地请求IV(signed int type SV).请改用newSVuv.如果整数是32位但是perl使用64位整数,你还需要说UV a =或unsigned a =代替int,否则由newSVuv执行的强制转换将最终将符号位扩展到高32位.