这些代码段可能看起来很奇怪,这是因为我从原始代码开始并切断了碎片,直到我到达了复制错误的最小指令集 . 所以忍受明显的无用 . 有两个perl6模块,一个是 use
,另一个是程序 . 这是第一个模块:
unit class test1;
use NativeCall;
use test2;
method test
{
my Pointer[void] $dummy .= new;
}
第二个模块包含在第一个模块中,但实际上没有使用它的任何部分:
unit module test2;
use NativeCall;
class A is repr('CStruct') is export {
has Pointer[void] $.wrongdoer;
has int32 $.a;
}
该程序创建一个test1对象并调用测试方法:
use lib '.';
use test1;
my test1 $t .= new;
$t.test;
该程序输出一个错误,显然是由类test1的方法测试中的赋值引起的:
Type check failed in assignment to $dummy; expected NativeCall::Types::Pointer[NativeCall::Types::void] but got NativeCall::Types::Pointer[NativeCall::Types::void].new(0)
如果我在第二个类中注释掉 $.wrongdoer
,则程序执行时没有错误 . 我正在运行rakudo 2018.06 . 这是NativeCall模块中的错误还是其他我看不到的错误?
1 回答
正如布拉德吉尔伯特所建议的,移除
[void]
会阻止远处的怪异动作 .