Procházet zdrojové kódy

* Consistent type for the DwarfOffset

Joost van der Sluis před 3 roky
rodič
revize
027f07560f
3 změnil soubory, kde provedl 3 přidání a 3 odebrání
  1. 1 1
      compiler/dbgdwarf.pas
  2. 1 1
      compiler/symdef.pas
  3. 1 1
      compiler/symsym.pas

+ 1 - 1
compiler/dbgdwarf.pas

@@ -149,7 +149,7 @@ interface
           structure's debug-info is kept.
           To be able to do so the current offset is kept in DwarfOffset, which is
           increased each time something is added to the al_dwarf_info-asmlist }
-        DwarfOffset: Integer;
+        DwarfOffset: Int64;
         procedure ResetDwarfOffset;
 
         procedure StartAbbrevSearch;

+ 1 - 1
compiler/symdef.pas

@@ -888,7 +888,7 @@ interface
           { To be able to reference the method in a property in the Dwarf debug
             info, the amount of bytes between the start of the debug info and
             the info for the method is stored }
-          dwarfoffset  : asizeint;
+          dwarfoffset  : int64;
 {$ifndef DISABLE_FAST_OVERLOAD_PATCH}
           seenmarker : pointer; // used for filtering in tcandidate
 {$endif}

+ 1 - 1
compiler/symsym.pas

@@ -228,7 +228,7 @@ interface
           { To be able to reference the field in a property in the Dwarf debug
             info, the amount of bytes between the start of the debug info and
             the info for the field is stored }
-          dwarfoffset   : asizeint;
+          dwarfoffset   : int64;
 {$ifdef llvm}
           { the llvm version of the record does not support variants,   }
           { so the llvm equivalent field may not be at the exact same   }