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

fpdebug: fixed typo

Browse Source 
git-svn-id: trunk@52909 -
This commit is contained in:
mattias 2016-09-04 12:18:22 +00:00
parent f225c167a9
commit 934d3bae21
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgclasses.pp
View File

@ -1210,7 +1210,7 @@ begin
if (AFrameRequired >= 0) and (AFrameRequired < FCallStackEntryList.Count) then
exit;
// TODO: remove, using AFrameRequired
if FCallStackEntryList.Count > 0 then exit; // allready done
if FCallStackEntryList.Count > 0 then exit; // already done
Address := Process.GetInstructionPointerRegisterValue;
Frame := Process.GetStackBasePointerRegisterValue;