erts: Make sure to tag orig with literal ptr

garazdawi · Jan 27, 2025 · 5b6a008 · 5b6a008
1 parent a51de9c
commit 5b6a008
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/erts/emulator/beam/erl_term.c b/erts/emulator/beam/erl_term.c
@@ -47,6 +47,9 @@ erts_set_literal_tag(Eterm *term, Eterm *hp_start, Eterm hsz)
 	    break;
 	case TAG_PRIMARY_HEADER:
 	    if (header_is_thing(*hp)) {
+                if (*hp == HEADER_SUB_BITS) {
+                    ((ErlSubBits*)hp)->orig |= TAG_LITERAL_PTR;
+                }
 		hp += thing_arityval(*hp);
 	    }
 	    break;