From 03f2c69d0d3634fd6556ad7a7061fd664265718a Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 16 May 2020 15:00:00 +0000
Subject: [PATCH] * Fix range check errors

git-svn-id: trunk@45387 -
---
 packages/rtl-extra/src/inc/sockets.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/rtl-extra/src/inc/sockets.inc b/packages/rtl-extra/src/inc/sockets.inc
index 1ec407de68..ddb3762ecd 100644
--- a/packages/rtl-extra/src/inc/sockets.inc
+++ b/packages/rtl-extra/src/inc/sockets.inc
@@ -398,7 +398,7 @@ end;
 
 const digittab : shortstring = ('0123456789ABCDEF');
 
-function lclinttohex (i:integer;digits:longint): ansistring;
+function lclinttohex (i:longint;digits:longint): ansistring;
 
 begin
   SetLength(lclinttohex,4);
@@ -734,7 +734,7 @@ begin
     // NOTE: optimization note: memmove/memcpy equivalent could help here.
     if hextet_idx < 8 then exit;
     for tmpByte := 0 to 7 do
-      ip6.s6_addr16[tmpByte] := hextet_arr[tmpByte];
+      ip6.u6_addr16[tmpByte] := hextet_arr[tmpByte];
   end;
   TryStrToHostAddr6 := True;
 end;