paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 15:09:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: Disable rangechecks for certain PtrUInt casts

Browse Source 
git-svn-id: trunk@37961 -
This commit is contained in:
martin 2012-07-17 10:57:14 +00:00
parent a99a34ebd2
commit cc1d668601
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/debugger.pp
View File

@ -3077,9 +3077,11 @@ begin
if (ADisassRange.Count > 0)
then fo := ADisassRange.EntriesPtr[0]^.Offset
else fo := 0;
{$PUSH}{$RANGECHECKS OFF}
with ADisassRange do
Result := Format('Range(%u)=[[ Cnt=%d, Capac=%d, [0].Addr=%u, RFirst=%u, [Cnt].Addr=%u, RLast=%u, REnd=%u, FirstOfs=%d ]]',
[PtrUInt(ADisassRange), Count, Capacity, FirstAddr, RangeStartAddr, LastAddr, RangeEndAddr, LastEntryEndAddr, fo]);
{$POP}
end;
end;

2
debugger/inspectdlg.pas
View File

@ -278,7 +278,9 @@ begin
if (FDBGInfo.TypeName <> '') and (FDBGInfo.TypeName[1] = '^')
then FGridData.Cells[1,1]:='Pointer to '+copy(FDBGInfo.TypeName, 2, length(FDBGInfo.TypeName))
else FGridData.Cells[1,1]:=FDBGInfo.TypeName;
{$PUSH}{$RANGECHECKS OFF}
FGridData.Cells[2,1]:=format('$%x',[PtrUInt(FDBGInfo.Value.AsPointer)]);
{$POP}
//FGridData.AutoSizeColumn(2);
end;