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

correct threshold marking in copy_structure (#2920)

Browse Source
This commit is contained in:
Mark Thom
2025-05-03 22:04:04 -07:00
committed by Mark Thom
parent 709dc041eb
commit 8b009448f4
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/machine/copier.rs
View File

@@ -426,7 +426,7 @@ impl<T: CopierTarget> CopyTermState<T> {
let index_cell = self.target[addr.saturating_sub(1)]; let index_cell = self.target[addr.saturating_sub(1)];
*self.value_at_scan() = if get_structure_index(index_cell).is_some() { let str_cell = if get_structure_index(index_cell).is_some() {
// copy the index pointer trailing this // copy the index pointer trailing this
// inlined or expanded goal. // inlined or expanded goal.
let mut writer = self.target.reserve(1).unwrap(); let mut writer = self.target.reserve(1).unwrap();
@@ -440,11 +440,12 @@ impl<T: CopierTarget> CopyTermState<T> {
str_loc_as_cell!(threshold) str_loc_as_cell!(threshold)
}; };
*self.value_at_scan() = str_cell;
self.target.copy_slice_to_end(addr .. addr + 1 + arity)?; self.target.copy_slice_to_end(addr .. addr + 1 + arity)?;
let trail_item = mem::replace( let trail_item = mem::replace(
&mut self.target[addr], &mut self.target[addr],
str_loc_as_cell!(threshold), str_cell,
); );
self.trail.push((TrailRef::heap_cell(addr), trail_item)); self.trail.push((TrailRef::heap_cell(addr), trail_item));