Skip to content

Commit 00c649e

Browse files
committed
Fix bug in v-table method installation.
1 parent 67a605c commit 00c649e

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

src/NQP/Actions.pm

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -862,6 +862,7 @@ class NQP::Actions is HLL::Actions {
862862
my $code := $*W.create_code($past, $name, $is_dispatcher);
863863
if $*MULTINESS eq 'multi' { attach_multi_signature($code, $past); }
864864
$*W.pkg_add_method($*PACKAGE, $meta_meth, $name, $code);
865+
$past<code_obj> := $code;
865866

866867
# Install it in the package also if needed.
867868
if $*SCOPE eq 'our' {
@@ -1025,7 +1026,8 @@ class NQP::Actions is HLL::Actions {
10251026
my $is_dispatcher := $*SCOPE eq 'proto';
10261027
make -> $match {
10271028
$*W.pkg_add_method($package, 'add_parrot_vtable_mapping', $name,
1028-
$*W.create_code($match.ast<block_past>, $name, $is_dispatcher));
1029+
$match.ast<code_obj> //
1030+
$*W.create_code($match.ast<block_past>, $name, $is_dispatcher));
10291031
};
10301032
}
10311033
elsif $<longname> eq 'parrot_vtable_handler' {

0 commit comments

Comments
 (0)