From 2835e63366ed6cde2bfc9ee5c839bde95247c200 Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Mon, 4 Jul 2022 20:49:46 +0200
Subject: [PATCH] Debugger: asm win, fix range check

---
 debugger/assemblerdlg.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/debugger/assemblerdlg.pp b/debugger/assemblerdlg.pp
index 995774f434..499c0c478b 100644
--- a/debugger/assemblerdlg.pp
+++ b/debugger/assemblerdlg.pp
@@ -590,6 +590,9 @@ function TAssemblerDlg.GetLinMapEntryForLine(ALine: Integer; out
   AnEntry: TAsmDlgLineEntry): Boolean;
 begin
   AnEntry := Default(TAsmDlgLineEntry);
+  Result := ALine >= FTopLine;
+  if not Result then
+    exit;
   ALine := ALine - FTopLine;
   Result := (ALine > 0) and (ALine < length(FLineMap));
   if Result then