From cf1dff31b9d7225ca6b5c488365728e810a39045 Mon Sep 17 00:00:00 2001
From: John Bintz <hello@theindustriousrabbit.com>
Date: Thu, 2 May 2024 17:04:54 -0400
Subject: [PATCH] Change HiChaine approach for Dns Get Address By Name$

---
 src/BSDSocket.s | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/src/BSDSocket.s b/src/BSDSocket.s
index 6af1ca8..e0b697d 100644
--- a/src/BSDSocket.s
+++ b/src/BSDSocket.s
@@ -2033,6 +2033,9 @@ _DnsGetHostAddressByName_GetIPAddressLength:
     ADDQ #2,D3
 
     Rjsr L_Demande ; string is in A0/A1
+    LEA 2(A0,D3.W),A1
+    MOVE.L A1,HiChaine(A5)
+    MOVE.L A0,A1
 
     MOVE.W D4,(A1)+
 
@@ -2042,11 +2045,6 @@ _DnsGetHostAddressByName_KeepCopying:
     MOVE.B (A2)+,(A1)+
     DBRA D4,_DnsGetHostAddressByName_KeepCopying
 
-    MOVE.W A1,D1
-    AND.W #$0001,D1
-    ADD.W D1,A1
-
-    MOVE.L A1,HiChaine(A5)
     MOVE.L A0,D3
 
     RestoreStackFunction