correct offset retrieval in add_pstr_chars_and_step (#2370)

2024-03-25 12:46:24 -06:00
parent 2fdbb94c79
commit 40fc4f9392
1 changed files with 2 additions and 1 deletions
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -278,7 +278,8 @@ impl BrentAlgState {
    ) -> Option<CycleSearchResult> {
        read_heap_cell!(heap[h],
            (HeapCellValueTag::PStrOffset, l) => {
-                let (pstr_loc, offset) = pstr_loc_and_offset(heap, l);
+                let (pstr_loc, _) = pstr_loc_and_offset(heap, l);
+                let offset = cell_as_fixnum!(heap[h+1]);
                self.add_pstr_offset_chars(heap, pstr_loc, offset.get_num() as usize)
            }
            _ => {