rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix arg/3 bug

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

2
src/machine/machine_state_impl.rs
View File

@@ -2974,7 +2974,7 @@ impl MachineState {
// arg(+N, +Term, ?Arg)
pub fn try_arg(&mut self) -> CallResult {
let stub_gen = || functor_stub(atom!("arg"), 3);
let n = self.registers[1]; //self.store(self.deref(self.registers[1])); // TODO: necessary?
let n = self.store(self.deref(self.registers[1]));
read_heap_cell!(n,
(HeapCellValueTag::Var | HeapCellValueTag::AttrVar | HeapCellValueTag::StackVar) => {

6
src/machine/system_calls.rs
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();