Skip to content
This repository
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 13 lines (9 sloc) 0.298 kb
1 2 3 4 5 6 7 8 9 10 11 12
use lib '.';
use t::CompileTestLib;
use NativeCall;

say("1..1");

compile_test_lib('04-pointers');

sub ReturnSomePointer() returns OpaquePointer is native("./04-pointers") { * }
sub TakeSomePointer(OpaquePointer) is native("./04-pointers") { * }
my $x = ReturnSomePointer();
TakeSomePointer($x);
Something went wrong with that request. Please try again.