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

* Zero out at premature exit

Browse Source 
git-svn-id: trunk@45230 -
This commit is contained in:
michael 2020-05-03 07:55:32 +00:00
parent 4a51d0600d
commit 4e92f2651e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -452,6 +452,7 @@ Var Part : String;
ZeroAt : Integer; ZeroAt : Integer;
Begin Begin
FillChar(IPv6,SizeOf(IPv6),0); FillChar(IPv6,SizeOf(IPv6),0);
FillChar(StrToHostAddr6,SizeOf(TIn6_addr),0);
{ Every 16-bit block is converted at its own and stored into Result. When } { Every 16-bit block is converted at its own and stored into Result. When }
{ the '::' zero-spacer is found, its location is stored. Afterwards the } { the '::' zero-spacer is found, its location is stored. Afterwards the }
{ address is shifted and zero-filled. } { address is shifted and zero-filled. }
@ -469,7 +470,7 @@ Begin
if J <> 0 then if J <> 0 then
Begin Begin
FillChar(IPv6,SizeOf(IPv6),0); FillChar(IPv6,SizeOf(IPv6),0);
Exit; Exit(IPV6);
End; End;
if IP[1] = ':' then if IP[1] = ':' then
Begin Begin