From: Mark <markjordanthom@gmail.com>
Date: Mon, 11 Dec 2023 21:38:20 +0000 (-0700)
Subject: dereference port address in socket_server_open (#2222)
X-Git-Tag: v0.9.4~78
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=658258c8c3d426b40b49d23497258f33bba4241f;p=scryer-prolog.git

dereference port address in socket_server_open (#2222)
---

diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs
index 758bbc9d..cfacdc35 100644
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -6522,7 +6522,7 @@ impl Machine {
         if had_zero_port {
             self.machine_st.unify_fixnum(
                 Fixnum::build_with(port as i64),
-                self.machine_st.registers[2],
+                self.deref_register(2),
             );
         }