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

adjust the tail created by CreatePartialString to point to the last cell it pushed to the heap (#586)

Browse Source
This commit is contained in:
Mark Thom
2020-06-11 21:25:20 -06:00
parent ad459b83c0
commit d9de38b935
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/prolog/machine/system_calls.rs
View File

@@ -1079,19 +1079,18 @@ impl MachineState {
} }
}; };
let h = self.heap.h();
if atom.as_str().is_empty() { if atom.as_str().is_empty() {
self.fail = true; self.fail = true;
return Ok(()); return Ok(());
} }
let pstr = self.heap.allocate_pstr(atom.as_str()); let pstr = self.heap.allocate_pstr(atom.as_str());
let pstr_tail = self.heap[h + 1].as_addr(h + 1);
self.unify(self[temp_v!(2)], pstr); self.unify(self[temp_v!(2)], pstr);
if !self.fail { if !self.fail {
let h = self.heap.h();
let pstr_tail = self.heap[h - 1].as_addr(h - 1);
self.unify(self[temp_v!(3)], pstr_tail); self.unify(self[temp_v!(3)], pstr_tail);
} }
} }