Jelajahi Sumber

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

git-svn-id: trunk@30175 -
nickysn 10 tahun lalu
induk
melakukan
e87ce29a4e
1 mengubah file dengan 3 tambahan dan 3 penghapusan
  1. 3 3
      ide/gdbmiwrap.pas

+ 3 - 3
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;