Change HiChaine approach for Dns Get Address By Name$

2024-05-02 17:04:54 -04:00 · 2024-05-02 17:04:54 -04:00 · cf1dff31b9
parent 79e77287bb
commit cf1dff31b9
1 changed files with 3 additions and 5 deletions
--- 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