Fix braino. NativeHOW sent bad data to the REPR compose.

rakudo · Jan 28, 2013 · c7fe112 · c7fe112
1 parent f7a5a2f
commit c7fe112
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Perl6/Metamodel/NativeHOW.pm b/src/Perl6/Metamodel/NativeHOW.pm
@@ -34,7 +34,11 @@ class Perl6::Metamodel::NativeHOW
         self.publish_method_cache($obj);
         self.publish_type_cache($obj);
         if !$!composed && $!nativesize {
-            nqp::composetype($obj, hash(bits => $!nativesize));
+            my $info := nqp::hash();
+            $info<integer> := nqp::hash();
+            $info<integer><bits> := nqp::unbox_i($!nativesize);
+            nqp::composetype($obj, $info);
+            #nqp::composetype($obj, hash(integer => hash(bits => $!nativesize)));
         }
         $!composed := 1;
     }