7

这些代码片段可能看起来很奇怪,这是因为我从我的原始代码开始并切断了部分,直到我到达重现错误的最小指令集。所以忍受表面上的无用。有两个 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 模块中的错误还是我看不到的其他错误?

4

1 回答 1

1

正如布拉德吉尔伯特所建议的那样,移除[void]停止在远处的怪异动作。

于 2018-07-02T11:12:04.440 回答