File tree Expand file tree Collapse file tree 1 file changed +3
-1
lines changed Expand file tree Collapse file tree 1 file changed +3
-1
lines changed Original file line number Diff line number Diff line change @@ -862,6 +862,7 @@ class NQP::Actions is HLL::Actions {
862
862
my $ code := $ * W . create_code($ past , $ name , $ is_dispatcher );
863
863
if $ * MULTINESS eq ' multi' { attach_multi_signature($ code , $ past ); }
864
864
$ * W . pkg_add_method($ * PACKAGE , $ meta_meth , $ name , $ code );
865
+ $ past <code_obj > := $ code ;
865
866
866
867
# Install it in the package also if needed.
867
868
if $ * SCOPE eq ' our' {
@@ -1025,7 +1026,8 @@ class NQP::Actions is HLL::Actions {
1025
1026
my $ is_dispatcher := $ * SCOPE eq ' proto' ;
1026
1027
make -> $ match {
1027
1028
$ * 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 ));
1029
1031
};
1030
1032
}
1031
1033
elsif $ < longname > eq ' parrot_vtable_handler' {
You can’t perform that action at this time.
0 commit comments