如何在 NativeCall 接口中正确使用 CPointer 和 CStruct

Question

我正在尝试让这个NativeCall 运行的示例：

use NativeCall;

class p_timespec is repr('CPointer') {
    has uint32 $.tv_sec;
    has long $.tv_nanosecs;
}

sub clock_gettime(uint32 $clock-id, p_timespec $tspec --> uint32) is native(Str) { * };

my p_timespec $this-time;

my $result = clock_gettime( 0, $this-time);

say "$result, $this-time";

它只是段错误，当您使用指针时会发生这种情况，而您不应该这样做。在这种情况下，可能是由于p_timespec的声明；我实际上已将其声明为CPointer，尽管the struct should be OK。但是，从分段错误中，我无法理解真正的问题所在。有人可以帮忙吗？

Answer 1

这里有两个问题。

1. 应使用CStruct 表示
2. 您需要创建一个结构实例以填充数据，否则您将传递一个空指针

这似乎有效：

use NativeCall;

class p_timespec is repr('CStruct') {
    has uint32 $.tv_sec;
    has long $.tv_nanosecs;
}

sub clock_gettime(uint32 $clock-id, p_timespec $tspec --> uint32) is native(Str) { * };

my p_timespec $this-time .= new;

my $result = clock_gettime( 0, $this-time);

say "$result, $this-time.tv_sec(), $this-time.tv_nanosecs()";

至于调试，Rakudo的安装过程还安装了一个perl6-gdb-m和一个perl6-valgrind-m；后者虽然速度较慢，但​​往往会提供一些有关内存错误的有用信息。