From 47edf858319241028bb6847115428a168f7b8ec3 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Mon, 20 Apr 2020 11:41:46 +0000
Subject: [PATCH] --- Merging r44845 into '.': U   
 packages/rtl-extra/src/inc/sockets.inc --- Recording mergeinfo for merge of
 r44845 into '.':  U   .

# revisions: 44845

git-svn-id: branches/fixes_3_2@44880 -
---
 packages/rtl-extra/src/inc/sockets.inc | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/packages/rtl-extra/src/inc/sockets.inc b/packages/rtl-extra/src/inc/sockets.inc
index d5962ce52f..442c71cf77 100644
--- a/packages/rtl-extra/src/inc/sockets.inc
+++ b/packages/rtl-extra/src/inc/sockets.inc
@@ -323,8 +323,13 @@ begin
        else
          Dummy:=IP;
       Val (Dummy,k,J);
-      array4int(temp.s_addr)[i]:=k;
-      If J<>0 then Exit;
+      If J<>0 then
+        exit;
+      array4int(temp.s_addr)[i]:=byte(k);
+      { check if after wrapping to a byte, our number is
+        still the same. if not, it can't be part of an IP. }
+      If array4int(temp.s_addr)[i]<>k then
+        exit;
    end;
    strtohostaddr.s_addr:=ntohl(Temp.s_addr);
 end;