瀏覽代碼

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 年之前
父節點
當前提交
a29ee477e3
共有 1 個文件被更改,包括 6 次插入0 次删除
  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);