Fix cases where we try calling methods on BOOTCode

Triggered by `role A { }; A.new ~~ A:D` code. Thanks @jdv for finding this error!
rakudo · Jun 5, 2022 · 4130846 · 4130846
1 parent 5d46c27
commit 4130846
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Perl6/Optimizer.nqp b/src/Perl6/Optimizer.nqp
@@ -1408,6 +1408,7 @@ my class Operand {
             for ['new', 'bless'] -> $constructor {
                 if nqp::defined(my $meth := nqp::tryfindmethod($type, $constructor)) {
                     for $!optimizer.routine_candidates($meth) -> $cand {
+                        next unless nqp::can($cand, 'package');
                         my $cand-pkg := $cand.package;
                         my $cand-ok := 0;
                         for @ok-types -> $ok-type {
@@ -4544,7 +4545,7 @@ class Perl6::Optimizer {
                 self.routine_candidates($wrapper, @candidates);
             }
         }
-        elsif $routine.is_dispatcher {
+        elsif nqp::can($routine, 'is_dispatcher') && $routine.is_dispatcher {
             my @dispatchees := nqp::istype($routine, NQPRoutine)
                                 ?? nqp::getattr($routine, NQPRoutine, '$!dispatchees')
                                 !! nqp::getattr($routine, $!symbols.Routine, '@!dispatchees');