From 0333677ac31911f9e5344bcd741d8e3d344ced4c Mon Sep 17 00:00:00 2001 From: michael Date: Wed, 13 May 2020 10:10:02 +0000 Subject: [PATCH] * Fix from Bart Broersma, small optimization (bug ID 37061) git-svn-id: trunk@45355 - --- 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 6a271ba868..7817f79f5a 100644 --- a/packages/rtl-extra/src/inc/sockets.inc +++ b/packages/rtl-extra/src/inc/sockets.inc @@ -597,7 +597,7 @@ begin begin // if we saw a collapsed sequence before, or if we've already // seen 8 hextets. - if (coll_zero_seen = True) or (hextet_idx > 7) then exit; + if coll_zero_seen or (hextet_idx > 7) then exit; coll_zero_seen := True; coll_start_idx := hextet_idx; Inc(hextet_idx); @@ -670,7 +670,7 @@ begin // finish line is in sight. if we have a collapsed-zeroes sequence // then we must fill that in now. - if coll_zero_seen = True then + if coll_zero_seen then begin for tmpByte := 0 to coll_start_idx do StrToHostAddr6.s6_addr16[tmpByte] := hextet_arr[tmpByte];