diff --git a/debugger/gdbmidebugger.pp b/debugger/gdbmidebugger.pp
index 2a1fdcc370..1b0af52ac1 100644
--- a/debugger/gdbmidebugger.pp
+++ b/debugger/gdbmidebugger.pp
@@ -2086,7 +2086,7 @@ const
   end;
 
   procedure AddMemDumpToRange(const ARange: TDBGDisassemblerEntryRange;
-    AMemDump: TGDBMIMemoryDumpResultList; AFirstAddr, ALastAddr: Integer);
+    AMemDump: TGDBMIMemoryDumpResultList; AFirstAddr, ALastAddr: TDBGPtr);
   var
     i, Cnt, FromIndex: Integer;
     Itm, NextItm: PDisassemblerEntry;