소스 검색

* Exclude dwarfoffset from CRC-calculation

Joost van der Sluis 3 년 전
부모
커밋
33104924d7
1개의 변경된 파일8개의 추가작업 그리고 0개의 파일을 삭제
  1. 8 0
      compiler/symsym.pas

+ 8 - 0
compiler/symsym.pas

@@ -2031,14 +2031,22 @@ implementation
 
 
     procedure tfieldvarsym.ppuwrite(ppufile:tcompilerppufile);
+      var
+        oldintfcrc: Boolean;
       begin
          inherited ppuwrite(ppufile);
          ppufile.putasizeint(fieldoffset);
+
+         oldintfcrc:=ppufile.do_crc;
+         ppufile.do_crc:=False;
          if visibility<>vis_hidden then
            { no reason to store an offset of -1 for all hidden fields }
            ppufile.putasizeint(dwarfoffset)
          else if dwarfoffset>-1 then
            Internalerror(2022030601);
+         ppufile.do_crc:=oldintfcrc;
+
+
          if (vo_has_mangledname in varoptions) then
            ppufile.putstring(externalname^);
          writeentry(ppufile,ibfieldvarsym);