paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 23:49:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r44845 into '.':

Browse Source 
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 -
This commit is contained in:
marco 2020-04-20 11:41:46 +00:00
parent c3f5006c86
commit 47edf85831
1 changed files with 7 additions and 2 deletions

9
packages/rtl-extra/src/inc/sockets.inc
View File

@ -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;