paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 20:21:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: compile on win64

Browse Source 
git-svn-id: trunk@44902 -
This commit is contained in:
martin 2014-05-03 15:00:16 +00:00
parent b70099f4fe
commit e53e32b3c8
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/fpdebug/fpdbgwinclasses.pas
View File

@ -984,6 +984,7 @@ end;
procedure TDbgWinThread.LoadRegisterValues;
begin
{$ifdef cpui386}
with GCurrentContext^ do
begin
FRegisterValueList.DbgRegisterAutoCreate['eax'].SetValue(Eax, IntToStr(Eax),4,0);
@ -1006,6 +1007,10 @@ begin
FRegisterValueList.DbgRegisterAutoCreate['gs'].SetValue(SegGs, IntToStr(SegGs),4,0);
end;
FRegisterValueListValid:=true;
{$else}
FRegisterValueListValid := False;
{$warning register not ready for 64 bit}
{$endif}
end;
procedure TDbgWinThread.SetSingleStep;
@ -1038,6 +1043,7 @@ var
begin
result := -1;
{$ifdef cpui386}
if SetBreakpoint(GCurrentContext^.Dr0, 0) then
result := 0
else if SetBreakpoint(GCurrentContext^.Dr1, 1) then
@ -1048,6 +1054,10 @@ begin
result := 3
else
Process.Log('No hardware breakpoint available.');
{$else}
FRegisterValueListValid := False;
{$warning watchpoint not ready for 64 bit}
{$endif}
end;
function TDbgWinThread.RemoveWatchpoint(AnId: integer): boolean;
@ -1070,12 +1080,17 @@ function TDbgWinThread.RemoveWatchpoint(AnId: integer): boolean;
end;
begin
{$ifdef cpui386}
case AnId of
0: result := RemoveBreakpoint(GCurrentContext^.Dr0, 0);
1: result := RemoveBreakpoint(GCurrentContext^.Dr1, 1);
2: result := RemoveBreakpoint(GCurrentContext^.Dr2, 2);
3: result := RemoveBreakpoint(GCurrentContext^.Dr3, 3);
end
{$else}
FRegisterValueListValid := False;
{$warning watchpoint not ready for 64 bit}
{$endif}
end;
procedure TDbgWinThread.BeforeContinue;