diff --git a/ide/gdbmiwrap.pas b/ide/gdbmiwrap.pas
index 787bc0d65e..2198aef469 100644
--- a/ide/gdbmiwrap.pas
+++ b/ide/gdbmiwrap.pas
@@ -207,11 +207,11 @@ end;
 function TGDBMI_Value.AsCoreAddr: CORE_ADDR;
 begin
 {$if defined(TARGET_IS_64BIT)}
-  Result := StrToQWord(C2PascalNumberPrefix(AsString));
+  Result := AsQWord;
 {$elseif defined(CPU64)}
-  Result := StrToQWord(C2PascalNumberPrefix(AsString));
+  Result := AsQWord;
 {$else}
-  Result := StrToLongWord(C2PascalNumberPrefix(AsString));
+  Result := AsLongWord;
 {$endif}
 end;