FIXED: trie_gen_compiled/3: deal with small integer value

SWI-Prolog · May 14, 2024 · c197aeb · c197aeb
1 parent 5345c4d
commit c197aeb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/pl-trie.c b/src/pl-trie.c
@@ -2970,9 +2970,9 @@ compile_trie_node(DECL_LD trie_node *n, trie_compile_state *state)
       { add_vmi(state, T_VALUE);
 	if ( !isRecord(n->value) )
 	{ if ( isAtom(n->value) )
-	  { add_vmi_d(state, T_ATOM, (code)n->value);
+	  { add_vmi_d(state, T_ATOM, word2code(n->value));
 	  } else
-	  { add_vmi_d(state, T_SMALLINT, (code)n->value);
+	  { add_smallint(state, T_SMALLINT, T_SMALLINTW, n->value);
 	  }
 	} else
 	{ term_t t2;