Question

这些代码片段可能看起来很奇怪，这是因为我从原始代码开始就切下了代码，直到找到了再现错误的最小指令集。因此，要忍受明显的无用。有两个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模块中的错误还是其他我看不到的东西？

Answer 1

正如布拉德·吉尔伯特（Brad Gilbert）所建议的那样，移开[void]可以在一定距离处停止怪异的动作。

在NativeCall perl6模块中声明Pointer [void]的奇怪消息

1 个答案: