这些代码片段可能看起来很奇怪,这是因为我从原始代码开始就切下了部分,直到找到了重现错误的最小指令集。因此,要忍受明显的无用。
有两个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对象并调用test方法:
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模块中的错误还是其他我看不到的错误?

最佳答案

正如Brad Gilbert所建议的那样,删除[void]可以在一定距离处停止怪异的 Action 。

10-07 14:58