Verified Commit c5bcb136 authored by Camil Staps's avatar Camil Staps 🙂

Fix arity of host node indirections

parent 6907a883
Pipeline #42558 passed with stages
in 14 minutes and 24 seconds
......@@ -41,7 +41,7 @@ static inline struct heap_pointers update_ref(BC_WORD *old, size_t heap_size,
*ref=hp.new;
#if DEBUG_GARBAGE_COLLECTOR > 1
EPRINTF ("%p <- %p (d %p)\n",hp.new,n,(void*)d);
EPRINTF ("%p/%p <- %p (d %p)\n",hp.new,hp.end,n,(void*)d);
#endif
if (d & 2) {
......
......@@ -124,7 +124,7 @@ static void build_host_nodes(void) {
# define INSTR(i) i
#endif
if (arity == 1) {
HOST_NODE_INSTRUCTIONS[6*arity-6] = (BC_WORD)1 << IF_INT_64_OR_32(48,16);
HOST_NODE_INSTRUCTIONS[6*arity-6] = (BC_WORD)1 << IF_INT_64_OR_32(32,0);
HOST_NODE_INSTRUCTIONS[6*arity-5] = INSTR(Cjsr_eval_host_node);
} else if (arity <= 5) {
HOST_NODE_INSTRUCTIONS[6*arity-6] = INSTR(Cjsr_eval_host_node+arity-1); /* ap entry */
......
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