Merge pull request #3273 from no382001/issue2914

fix panic in current_prolog_flag/2 when arguments are the same variable
2026-04-04 13:06:11 -06:00
parent 2b6b11e6be 6a10c6d6a5
commit 3e2f3ecfdb
3 changed files with 12 additions and 4 deletions
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -9233,10 +9233,9 @@ impl Machine {

    #[inline(always)]
    pub(crate) fn is_sto_enabled(&mut self) {
-        self.machine_st.unify_atom(
-            self.machine_st.occurs_check.flag_value(),
-            self.machine_st.registers[1],
-        );
+        let a1 = self.deref_register(1);
+        self.machine_st
+            .unify_atom(self.machine_st.occurs_check.flag_value(), a1);
    }

    #[inline(always)]