Cope with null attribute type in P6opaque.

jnthn · Feb 1, 2013 · 8f5a622 · 8f5a622
1 parent b56b607
commit 8f5a622
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/org/perl6/nqp/sixmodel/reprs/P6Opaque.java b/src/org/perl6/nqp/sixmodel/reprs/P6Opaque.java
@@ -57,9 +57,12 @@ public void compose(ThreadContext tc, STable st, SixModelObject repr_info) {
                 for (long j = 0; j < numAttrs; j++) {
                     SixModelObject attrHash = attrs.at_pos_boxed(tc, j);
                     String attrName = attrHash.at_key_boxed(tc, "name").get_str(tc);
+                    SixModelObject attrType = attrHash.at_key_boxed(tc, "type");
+                    if (attrType == null)
+                    	attrType = tc.gc.KnowHOW;
                     indexes.put(attrName, curAttr++);
                     AttrInfo info = new AttrInfo();
-                    info.st = attrHash.at_key_boxed(tc, "type").st;
+                    info.st = attrType.st;
                     if (st.REPR.get_storage_spec(tc, st).inlineable == StorageSpec.INLINED)
                     	flattenedSTables.add(st);
                     else