diff options
author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-05-03 07:55:32 +0000 |
---|---|---|
committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-05-03 07:55:32 +0000 |
commit | 86a2e4eacead3239006a9e73cf7de84906801a54 (patch) | |
tree | 903259de1003d4d557269ab3e5f526654224100b /packages/rtl-extra | |
parent | 286c79bf9117b5d18244a1b61c15cecd547f99b3 (diff) | |
download | fpc-86a2e4eacead3239006a9e73cf7de84906801a54.tar.gz |
* Zero out at premature exit
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@45230 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/rtl-extra')
-rw-r--r-- | packages/rtl-extra/src/inc/sockets.inc | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/packages/rtl-extra/src/inc/sockets.inc b/packages/rtl-extra/src/inc/sockets.inc index 442c71cf77..e62b6e4381 100644 --- a/packages/rtl-extra/src/inc/sockets.inc +++ b/packages/rtl-extra/src/inc/sockets.inc @@ -452,6 +452,7 @@ Var Part : String; ZeroAt : Integer; Begin 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 } { the '::' zero-spacer is found, its location is stored. Afterwards the } { address is shifted and zero-filled. } @@ -469,7 +470,7 @@ Begin if J <> 0 then Begin FillChar(IPv6,SizeOf(IPv6),0); - Exit; + Exit(IPV6); End; if IP[1] = ':' then Begin |