瀏覽代碼

* fixed typecast error due to typo after r29795

git-svn-id: trunk@29796 -
nickysn 10 年之前
父節點
當前提交
79118e531f
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      ide/gdbmicon.pas

+ 1 - 1
ide/gdbmicon.pas

@@ -270,7 +270,7 @@ var
   U32Value: UInt32;
 begin
   GetIntRegister := GetIntRegister(RegName, U32Value);
-  Value := UInt32(U32Value);
+  Value := Int32(U32Value);
 end;
 
 function TGDBController.BreakpointInsert(const location: string; BreakpointFlags: TBreakpointFlags): LongInt;