mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-01 04:30:16 +02:00
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:
parent
72195c84ef
commit
a29ee477e3
@ -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);
|
||||
|
Loading…
Reference in New Issue
Block a user