Skip to content

Commit ceb047a

Browse files
committed
HLL entries for native ref types.
1 parent 47e84a4 commit ceb047a

File tree

2 files changed

+31
-0
lines changed

2 files changed

+31
-0
lines changed

src/vm/jvm/runtime/org/perl6/nqp/runtime/HLLConfig.java

Lines changed: 13 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -90,4 +90,17 @@ public class HLLConfig {
9090
* Block exit handler, for those that need it.
9191
*/
9292
public SixModelObject exitHandler;
93+
94+
/**
95+
* Native reference types.
96+
*/
97+
public SixModelObject intLexRef;
98+
public SixModelObject numLexRef;
99+
public SixModelObject strLexRef;
100+
public SixModelObject intAttrRef;
101+
public SixModelObject numAttrRef;
102+
public SixModelObject strAttrRef;
103+
public SixModelObject intPosRef;
104+
public SixModelObject numPosRef;
105+
public SixModelObject strPosRef;
93106
}

src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java

Lines changed: 18 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4851,6 +4851,24 @@ public static SixModelObject sethllconfig(String language, SixModelObject config
48514851
config.nullValue = configHash.at_key_boxed(tc, "null_value");
48524852
if (configHash.exists_key(tc, "exit_handler") != 0)
48534853
config.exitHandler = configHash.at_key_boxed(tc, "exit_handler");
4854+
if (configHash.exists_key(tc, "int_lex_ref") != 0)
4855+
config.exitHandler = configHash.at_key_boxed(tc, "int_lex_ref");
4856+
if (configHash.exists_key(tc, "num_lex_ref") != 0)
4857+
config.exitHandler = configHash.at_key_boxed(tc, "num_lex_ref");
4858+
if (configHash.exists_key(tc, "str_lex_ref") != 0)
4859+
config.exitHandler = configHash.at_key_boxed(tc, "str_lex_ref");
4860+
if (configHash.exists_key(tc, "int_attr_ref") != 0)
4861+
config.exitHandler = configHash.at_key_boxed(tc, "int_attr_ref");
4862+
if (configHash.exists_key(tc, "num_attr_ref") != 0)
4863+
config.exitHandler = configHash.at_key_boxed(tc, "num_attr_ref");
4864+
if (configHash.exists_key(tc, "str_attr_ref") != 0)
4865+
config.exitHandler = configHash.at_key_boxed(tc, "str_attr_ref");
4866+
if (configHash.exists_key(tc, "int_pos_ref") != 0)
4867+
config.exitHandler = configHash.at_key_boxed(tc, "int_pos_ref");
4868+
if (configHash.exists_key(tc, "num_pos_ref") != 0)
4869+
config.exitHandler = configHash.at_key_boxed(tc, "num_pos_ref");
4870+
if (configHash.exists_key(tc, "str_pos_ref") != 0)
4871+
config.exitHandler = configHash.at_key_boxed(tc, "str_pos_ref");
48544872
return configHash;
48554873
}
48564874
public static SixModelObject getcomp(String name, ThreadContext tc) {

0 commit comments

Comments
 (0)