paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-26 17:28:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFp (pure): StepIntoStr -> StepIntoInstr

Browse Source 
git-svn-id: trunk@44728 -
This commit is contained in:
joost 2014-04-14 16:59:05 +00:00
parent 96991a9a84
commit 22b80b3cf5
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgcontroller.pas
View File

@ -48,7 +48,7 @@ type
destructor Destroy; override; destructor Destroy; override;
function Run: boolean; function Run: boolean;
procedure Stop; procedure Stop;
procedure StepIntoStr; procedure StepIntoInstr;
procedure StepOverInstr; procedure StepOverInstr;
procedure ProcessLoop; procedure ProcessLoop;
procedure SendEvents(out continue: boolean); procedure SendEvents(out continue: boolean);
@ -131,7 +131,7 @@ begin
FMainProcess.TerminateProcess; FMainProcess.TerminateProcess;
end; end;
procedure TDbgController.StepIntoStr; procedure TDbgController.StepIntoInstr;
begin begin
FCurrentThread.SingleStep; FCurrentThread.SingleStep;
end; end;

2
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -588,7 +588,7 @@ begin
end; end;
dcStepIntoInstr: dcStepIntoInstr:
begin begin
FDbgController.StepIntoStr; FDbgController.StepIntoInstr;
SetState(dsRun); SetState(dsRun);
StartDebugLoop; StartDebugLoop;
result := true; result := true;