这些代码片段可能看起来很奇怪,这是因为我从我的原始代码开始,然后截取代码片段,直到我到达重现错误的最小指令集。因此,请容忍这种明显的无用。有两个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的方法test中的赋值引起的:
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模块中的错误还是我看不到的其他东西?
发布于 2018-07-02 19:12:04
正如布拉德·吉尔伯特所建议的,移除[void]会在一段距离内停止可怕的动作。
https://stackoverflow.com/questions/51122481
复制相似问题