fixed nqp::objprimspec

Author: FROGGS

docs/pir2nqp.todo

@@ -44,9 +44,6 @@ pir::load_bytecode
 to be nqp::changetype
 pir::repr_change_type__0PP
 
-to be nqp::primspec
-pir::repr_get_primitive_type_spec__IP
-
 to be nqp::pubmethcache
 pir::publish_method_cache
 

src/vm/parrot/ops/nqp.ops

@@ -2179,7 +2179,16 @@ inline op repr_get_primitive_type_spec(out INT, invar PMC) :base_core {
     PMC *var = decontainerize(interp, $2);
     if (var->vtable->base_type == smo_id) {
         storage_spec ss = REPR(var)->get_storage_spec(interp, STABLE(var));
-        $1 = ss.inlineable ? ss.boxed_primitive : STORAGE_SPEC_BP_NONE;
+        $1 = ss.boxed_primitive;
+    }
+    else if (var->vtable->base_type == enum_class_Integer) {
+        $1 = STORAGE_SPEC_BP_INT;
+    }
+    else if (var->vtable->base_type == enum_class_Float) {
+        $1 = STORAGE_SPEC_BP_NUM;
+    }
+    else if (var->vtable->base_type == enum_class_String) {
+        $1 = STORAGE_SPEC_BP_STR;
     }
     else {
         $1 = STORAGE_SPEC_BP_NONE;