Mark HLL roles on various types.

Raku · May 10, 2013 · dffacb2 · dffacb2
1 parent 9ad904b
commit dffacb2
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/src/core/NQPMu.nqp b/src/core/NQPMu.nqp
@@ -118,6 +118,7 @@ my class NQPArray is repr('VMArray') {
     method shift() { nqp::shift(self) }
 }
 nqp::setboolspec(NQPArray, 8, nqp::null());
+nqp::settypehllrole(NQPArray, 4);
 my class NQPArrayIter is repr('VMIter') { }
 nqp::setboolspec(NQPArrayIter, 7, nqp::null());
 my class NQPHashIter is repr('VMIter') {

diff --git a/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/KnowHOWBootstrapper.java b/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/KnowHOWBootstrapper.java
@@ -1,5 +1,6 @@
 package org.perl6.nqp.sixmodel;
 import org.perl6.nqp.runtime.CompilationUnit;
+import org.perl6.nqp.runtime.HLLConfig;
 import org.perl6.nqp.runtime.Ops;
 import org.perl6.nqp.runtime.ThreadContext;
 import org.perl6.nqp.sixmodel.reprs.KnowHOWREPRInstance;
@@ -26,6 +27,13 @@ public static void bootstrap(ThreadContext tc)
         tc.gc.BOOTException = bootType(tc, "BOOTException", "VMException");
         tc.gc.BOOTIO = bootType(tc, "BOOTIO", "IOHandle");
 
+        tc.gc.BOOTArray.st.hllRole = HLLConfig.ROLE_ARRAY;
+        tc.gc.BOOTHash.st.hllRole = HLLConfig.ROLE_HASH;
+        tc.gc.BOOTInt.st.hllRole = HLLConfig.ROLE_INT;
+        tc.gc.BOOTNum.st.hllRole = HLLConfig.ROLE_NUM;
+        tc.gc.BOOTStr.st.hllRole = HLLConfig.ROLE_STR;
+        tc.gc.BOOTCode.st.hllRole = HLLConfig.ROLE_CODE;
+
         tc.gc.BOOTIntArray = bootTypedArray(tc, "BOOTIntArray", tc.gc.BOOTInt);
         tc.gc.BOOTNumArray = bootTypedArray(tc, "BOOTNumArray", tc.gc.BOOTNum);
         tc.gc.BOOTStrArray = bootTypedArray(tc, "BOOTStrArray", tc.gc.BOOTStr);