Explorar el Código

* Consistent type for the DwarfOffset

Joost van der Sluis hace 3 años
padre
commit
027f07560f
Se han modificado 3 ficheros con 3 adiciones y 3 borrados
  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   }