From 93b8dc38f40ee892ad6505833045d079f59165f2 Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Wed, 25 Sep 2024 22:22:13 +0200
Subject: [PATCH] IdeDebugger: fix range check in disassembler

(cherry picked from commit 84b64855b130bafd0dff8eb7e43f8070e281496e)
---
 ide/packages/idedebugger/assemblerdlg.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/ide/packages/idedebugger/assemblerdlg.pp b/ide/packages/idedebugger/assemblerdlg.pp
index e81bbe6262..9312ec57c6 100644
--- a/ide/packages/idedebugger/assemblerdlg.pp
+++ b/ide/packages/idedebugger/assemblerdlg.pp
@@ -641,7 +641,9 @@ begin
   Result := ALine >= FTopLine;
   if not Result then
     exit;
+  {$PUSH}{$Q-}{$R-} // if FTopLine is close to Low(integer) it can overflow
   ALine := ALine - FTopLine;
+  {$POP}
   Result := (ALine > 0) and (ALine < length(FLineMap));
   if Result then
     AnEntry := FLineMap[ALine];