浏览代码

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

git-svn-id: trunk@30175 -
nickysn 10 年之前
父节点
当前提交
e87ce29a4e
共有 1 个文件被更改,包括 3 次插入3 次删除
  1. 3 3
      ide/gdbmiwrap.pas

+ 3 - 3
ide/gdbmiwrap.pas

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