diff --git a/ide/packages/idedebugger/assemblerdlg.pp b/ide/packages/idedebugger/assemblerdlg.pp
index 63e7fbdda6..cecd254b58 100644
--- a/ide/packages/idedebugger/assemblerdlg.pp
+++ b/ide/packages/idedebugger/assemblerdlg.pp
@@ -670,7 +670,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];