paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 10:40:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use the AsQWord and AsLongWord methods to do the conversion in TGDBMI_Value.AsCoreAddr

Browse Source 
git-svn-id: trunk@30175 -
This commit is contained in:
nickysn 2015-03-12 22:53:02 +00:00
parent 44f272ca3f
commit e87ce29a4e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/gdbmiwrap.pas
View File

@ -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;