HLL entries for native ref types.

Raku · Feb 28, 2015 · ceb047a · ceb047a
1 parent 47e84a4
commit ceb047a
Show file tree

Hide file tree

Showing 2 changed files with 31 additions and 0 deletions.
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/runtime/HLLConfig.java b/src/vm/jvm/runtime/org/perl6/nqp/runtime/HLLConfig.java
@@ -90,4 +90,17 @@ public class HLLConfig {
      * Block exit handler, for those that need it.
      */
     public SixModelObject exitHandler;
+
+    /**
+     * Native reference types.
+     */
+    public SixModelObject intLexRef;
+    public SixModelObject numLexRef;
+    public SixModelObject strLexRef;
+    public SixModelObject intAttrRef;
+    public SixModelObject numAttrRef;
+    public SixModelObject strAttrRef;
+    public SixModelObject intPosRef;
+    public SixModelObject numPosRef;
+    public SixModelObject strPosRef;
 }
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java b/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java
@@ -4851,6 +4851,24 @@ public static SixModelObject sethllconfig(String language, SixModelObject config
             config.nullValue = configHash.at_key_boxed(tc, "null_value");
         if (configHash.exists_key(tc, "exit_handler") != 0)
             config.exitHandler = configHash.at_key_boxed(tc, "exit_handler");
+        if (configHash.exists_key(tc, "int_lex_ref") != 0)
+            config.exitHandler = configHash.at_key_boxed(tc, "int_lex_ref");
+        if (configHash.exists_key(tc, "num_lex_ref") != 0)
+            config.exitHandler = configHash.at_key_boxed(tc, "num_lex_ref");
+        if (configHash.exists_key(tc, "str_lex_ref") != 0)
+            config.exitHandler = configHash.at_key_boxed(tc, "str_lex_ref");
+        if (configHash.exists_key(tc, "int_attr_ref") != 0)
+            config.exitHandler = configHash.at_key_boxed(tc, "int_attr_ref");
+        if (configHash.exists_key(tc, "num_attr_ref") != 0)
+            config.exitHandler = configHash.at_key_boxed(tc, "num_attr_ref");
+        if (configHash.exists_key(tc, "str_attr_ref") != 0)
+            config.exitHandler = configHash.at_key_boxed(tc, "str_attr_ref");
+        if (configHash.exists_key(tc, "int_pos_ref") != 0)
+            config.exitHandler = configHash.at_key_boxed(tc, "int_pos_ref");
+        if (configHash.exists_key(tc, "num_pos_ref") != 0)
+            config.exitHandler = configHash.at_key_boxed(tc, "num_pos_ref");
+        if (configHash.exists_key(tc, "str_pos_ref") != 0)
+            config.exitHandler = configHash.at_key_boxed(tc, "str_pos_ref");
         return configHash;
     }
     public static SixModelObject getcomp(String name, ThreadContext tc) {