如何在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; 我实际上已将其声明为a CPointer,尽管结构应该没问题.但是,从分段错误来看,我无法理解究竟是什么问题.有人可以帮忙吗？

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的安装过程也安装了a perl6-gdb-m和a perl6-valgrind-m; 后者虽然很慢,但往往会提供一些有关内存错误的有用信息.