correct offset retrieval in add_pstr_chars_and_step (#2030)

mthom · Mar 25, 2024 · 8d0f6a5 · 8d0f6a5
1 parent 2fdbb94
commit 8d0f6a5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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)
             }
             _ => {