paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 13:29:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Consistent type for the DwarfOffset

Browse Source
This commit is contained in:
Joost van der Sluis 2022-06-13 00:46:05 +02:00 committed by FPK
parent 18a53c15e8
commit 027f07560f
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/dbgdwarf.pas
View File

@ -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;

2
compiler/symdef.pas
View File

@ -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}

2
compiler/symsym.pas
View File

@ -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 }