paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 22:32:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed typecast error due to typo after r29795

Browse Source 
git-svn-id: trunk@29796 -
This commit is contained in:
nickysn 2015-02-22 22:02:40 +00:00
parent 0a02da23f4
commit 79118e531f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/gdbmicon.pas
View File

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