dereference list link in delete_attribute (#1148)

This commit is contained in:
Mark Thom
2022-03-03 23:22:36 -07:00
parent 9f864574de
commit 0c25ffc26e
2 changed files with 21 additions and 15 deletions

View File

@@ -2833,7 +2833,7 @@ impl Machine {
if let HeapCellValueTag::Lis = ls1.get_tag() {
let l2 = ls1.get_value();
let old_addr = self.machine_st.heap[l1+1];
let old_addr = self.machine_st.store(self.machine_st.deref(self.machine_st.heap[l1+1]));
let tail = self.machine_st.store(self.machine_st.deref(heap_loc_as_cell!(l2 + 1)));
let tail = if tail.is_var() {
@@ -3709,7 +3709,7 @@ impl Machine {
}
#[inline(always)]
pub(crate) fn reset_attr_var_state(&mut self) { // 1344! That's the value of self.b we need to pop this.
pub(crate) fn reset_attr_var_state(&mut self) {
self.restore_instr_at_verify_attr_interrupt();
self.machine_st.attr_var_init.reset();
}