Merged revision(s) 49339 from trunk:

Add explicit zeroing of trttiparaloc record to avoid hash calculation issues
........

git-svn-id: branches/fixes_3_2@49343 -
This commit is contained in:
svenbarth 2021-05-07 05:17:17 +00:00
parent 72195c84ef
commit a29ee477e3

View File

@ -758,6 +758,12 @@ implementation
var
reg : tregisterrec;
begin
{ Explicitly zero the whole record, to avoid
trouble as this record is used as is in a
hash calculation, which might give unreliable
results if the record as gaps between fields
due to field alignment. PM 2021-05-06 }
fillchar(result,sizeof(trttiparaloc),#0);
if paraloc^.Loc=LOC_REFERENCE then
begin
reg:=tregisterrec(paraloc^.reference.index);