From: Mark Thom <markjordanthom@gmail.com>
Date: Tue, 6 Dec 2022 06:28:44 +0000 (-0700)
Subject: dereference encoding register in crypto_data_decrypt (#1650)
X-Git-Tag: v0.9.2~260
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=d660e4244ff48bbcd558fab07a4dd4a5e9d68209;p=scryer-prolog.git

dereference encoding register in crypto_data_decrypt (#1650)
---

diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs
index 0006f53f..87ab9e48 100644
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -6318,7 +6318,7 @@ impl Machine {
     #[inline(always)]
     pub(crate) fn crypto_data_decrypt(&mut self) {
         let data = self.string_encoding_bytes(self.machine_st.registers[1], atom!("octet"));
-        let encoding = cell_as_atom!(self.machine_st.registers[5]);
+        let encoding = cell_as_atom!(self.machine_st.store(self.machine_st.deref(self.machine_st.registers[5])));
 
         let aad = self.string_encoding_bytes(self.machine_st.registers[2], encoding);
         let stub1_gen = || functor_stub(atom!("crypto_data_decrypt"), 7);