fix arg/3 bug

This commit is contained in:
Mark Thom
2021-11-21 13:25:24 -07:00
parent 3355b49724
commit 073f281f1e
3 changed files with 4 additions and 8 deletions

View File

@@ -3795,12 +3795,12 @@ impl MachineState {
self.reset_block(addr);
}
&SystemClauseType::ResetContinuationMarker => {
self.registers[3] = atom_as_cell!(atom!("none"));
let h = self.heap.len();
self.heap.push(heap_loc_as_cell!(h));
self.registers[3] = atom_as_cell!(atom!("none"));
self.registers[4] = heap_loc_as_cell!(h);
self.heap.push(heap_loc_as_cell!(h));
}
&SystemClauseType::SetBall => {
self.set_ball();