From cc1d668601c2b79ac7b52c1fcd4bf2a4936b6dfa Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Tue, 17 Jul 2012 10:57:14 +0000
Subject: [PATCH] DBG: Disable rangechecks for certain PtrUInt casts

git-svn-id: trunk@37961 -
---
 debugger/debugger.pp    | 2 ++
 debugger/inspectdlg.pas | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/debugger/debugger.pp b/debugger/debugger.pp
index 3a6a4367ea..1b5ea48cb6 100644
--- a/debugger/debugger.pp
+++ b/debugger/debugger.pp
@@ -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;
 
diff --git a/debugger/inspectdlg.pas b/debugger/inspectdlg.pas
index 2799599ca5..ab568512b4 100644
--- a/debugger/inspectdlg.pas
+++ b/debugger/inspectdlg.pas
@@ -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;