Commit 37a6c086 authored by Camil Staps's avatar Camil Staps 🍃

Resolve issue reported in iTasks-SDK#298: e__system__nind can now occur in serialized graphs

parent 2c04e70d
......@@ -447,6 +447,7 @@ where
"REAL" -> code_start-5*8+2
"INT" -> code_start-6*8+2
"dINT" -> code_start-6*8+2
"_ind" -> code_start-7*8+2
_ -> lookup_symbol_value di mods syms
// This is like the function with the same name in GraphCopy's
......@@ -533,6 +534,7 @@ where
| d==array_desc-4*8+2 = (1,True) // CHAR
| d==array_desc-5*8+2 = (IF_INT_64_OR_32 1 2,True) // REAL
| d==array_desc-6*8+2 = (1,True) // INT/dINT
| d==array_desc-7*8+2 = (0,True) // _ind
| otherwise = abort "internal error in serialize_for_prelinked_interpretation\n"
# arity = get_D_node_arity d
| arity<256 = (0,True)
......
......@@ -796,6 +796,8 @@
(br $predefined-constructor)
)
)
(br_if ;; e__system__nind
$loop (i32.eq (local.get $desc) (i32.const -54)))
(br $no-predefined-constructor)
)
......
......@@ -86,6 +86,7 @@ void init_parser(struct parser *state
preseed_symbol_matcher(state, "REAL", (void*) &REAL);
preseed_symbol_matcher(state, "__ARRAY__", (void*) &__ARRAY__);
preseed_symbol_matcher(state, "__STRING__", (void*) &__STRING__);
preseed_symbol_matcher(state, "e__system__nind", (void*) &__interpreter_indirection[5]);
#endif
#ifdef LINKER
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment