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

Use unsigned local variable NetAddrToStr to avoid range check error

Browse Source
This commit is contained in:
Pierre Muller 2025-05-25 05:55:07 +00:00
parent a841bccf75
commit 6d22408256
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -278,8 +278,8 @@ Type array4int = array[1..4] of byte;
function NetAddrToStr (Entry : in_addr) : AnsiString;
Var Dummy : Ansistring;
i,j : Longint;
i : Longint;
j : Cardinal;
begin
NetAddrToStr:='';
j:=entry.s_addr;