Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

munge types of the original signature

  • Loading branch information...
commit d7e7855cd0863042f95d45b4529fef8d70054ba3 1 parent 5e45892
@moritz moritz authored
Showing with 2 additions and 1 deletion.
  1. +2 −1  lib/NativeCall.pm6
View
3  lib/NativeCall.pm6
@@ -87,7 +87,8 @@ my role Native[Routine $r, Str $libname] {
unless $!setup {
my Mu $arg_info := nqp::list();
for $r.signature.params -> $p {
- nqp::push($arg_info, param_hash_for($p))
+ nqp::push($arg_info, param_hash_for($p));
+ nqp::bindattr(nqp::p6decont($p), Parameter, '$!nominal_type', nqp::p6decont(map_return_type($p.type)));
}
my str $conv = self.?native_call_convention || '';
my $realname =
Please sign in to comment.
Something went wrong with that request. Please try again.