make native attribute buildplan work on jvm, too.

rakudo · Oct 28, 2013 · 6c853ea · 6c853ea
1 parent 2e5e1e3
commit 6c853ea
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Metamodel/BUILDPLAN.nqp b/src/Perl6/Metamodel/BUILDPLAN.nqp
@@ -36,7 +36,7 @@ role Perl6::Metamodel::BUILDPLAN {
                     my $name      := nqp::substr($attr_name, 2);
                     my $typespec  := nqp::objprimspec($_.type);
                     if $typespec == 1 || $typespec == 2 || $typespec == 3 {
-                        @plan[+@plan] :=  [4 + $typespec,
+                        @plan[+@plan] :=  [nqp::add_i(4, $typespec),
                                               $obj, $name, $attr_name];
                     } else {
                         @plan[+@plan] :=  [1, $obj, $name, $attr_name];