paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 00:10:25 +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; function TGDBMI_Value.AsCoreAddr: CORE_ADDR;
begin begin
{$if defined(TARGET_IS_64BIT)} {$if defined(TARGET_IS_64BIT)}
Result := StrToQWord(C2PascalNumberPrefix(AsString)); Result := AsQWord;
{$elseif defined(CPU64)} {$elseif defined(CPU64)}
Result := StrToQWord(C2PascalNumberPrefix(AsString)); Result := AsQWord;
{$else} {$else}
Result := StrToLongWord(C2PascalNumberPrefix(AsString)); Result := AsLongWord;
{$endif} {$endif}
end; end;