Browse Source

* Consistent type for the DwarfOffset

Joost van der Sluis 3 years ago
parent
commit
027f07560f
3 changed files with 3 additions and 3 deletions
  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.
           structure's debug-info is kept.
           To be able to do so the current offset is kept in DwarfOffset, which is
           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 }
           increased each time something is added to the al_dwarf_info-asmlist }
-        DwarfOffset: Integer;
+        DwarfOffset: Int64;
         procedure ResetDwarfOffset;
         procedure ResetDwarfOffset;
 
 
         procedure StartAbbrevSearch;
         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
           { 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
             info, the amount of bytes between the start of the debug info and
             the info for the method is stored }
             the info for the method is stored }
-          dwarfoffset  : asizeint;
+          dwarfoffset  : int64;
 {$ifndef DISABLE_FAST_OVERLOAD_PATCH}
 {$ifndef DISABLE_FAST_OVERLOAD_PATCH}
           seenmarker : pointer; // used for filtering in tcandidate
           seenmarker : pointer; // used for filtering in tcandidate
 {$endif}
 {$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
           { 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
             info, the amount of bytes between the start of the debug info and
             the info for the field is stored }
             the info for the field is stored }
-          dwarfoffset   : asizeint;
+          dwarfoffset   : int64;
 {$ifdef llvm}
 {$ifdef llvm}
           { the llvm version of the record does not support variants,   }
           { the llvm version of the record does not support variants,   }
           { so the llvm equivalent field may not be at the exact same   }
           { so the llvm equivalent field may not be at the exact same   }