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

offset into complete strings with '$skip_max_list'/4 (#1529)

Browse Source
This commit is contained in:
Mark Thom
2022-08-20 20:28:49 -06:00
parent d4c0277065
commit 8a9cd7779c
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/machine/system_calls.rs
View File

@@ -579,7 +579,19 @@ impl MachineState {
self.finalize_skip_max_list(n as i64, list_loc_as_cell!(l)); self.finalize_skip_max_list(n as i64, list_loc_as_cell!(l));
} }
CycleSearchResult::UntouchedCStr(cstr_atom, n) => { CycleSearchResult::UntouchedCStr(cstr_atom, n) => {
self.finalize_skip_max_list(n as i64, string_as_cstr_cell!(cstr_atom)); let cell = if n > 0 {
let h = self.heap.len();
self.heap.push(string_as_cstr_cell!(cstr_atom));
self.heap.push(pstr_offset_as_cell!(h));
self.heap.push(fixnum_as_cell!(Fixnum::build_with(n as i64)));
pstr_loc_as_cell!(h+1)
} else {
string_as_cstr_cell!(cstr_atom)
};
self.finalize_skip_max_list(n as i64, cell);
} }
CycleSearchResult::EmptyList => { CycleSearchResult::EmptyList => {
self.finalize_skip_max_list(0, empty_list_as_cell!()); self.finalize_skip_max_list(0, empty_list_as_cell!());