Sfoglia il codice sorgente

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 -

svenbarth 4 anni fa
parent
commit
a29ee477e3
1 ha cambiato i file con 6 aggiunte e 0 eliminazioni
  1. 6 0
      compiler/paramgr.pas

+ 6 - 0
compiler/paramgr.pas

@@ -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);