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

FpDebug: Do not stop on lines with unknown line info (linenr=0)

Browse Source 
git-svn-id: trunk@47222 -
This commit is contained in:
joost 2014-12-19 10:42:19 +00:00
parent f6bbc53755
commit f4818c2bfd
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgclasses.pp
View File

@ -1043,6 +1043,8 @@ begin
if (((FStoreStepSrcFilename=sym.FileName) and (FStoreStepSrcLineNo=sym.Line)) {or FStepOut}) and if (((FStoreStepSrcFilename=sym.FileName) and (FStoreStepSrcLineNo=sym.Line)) {or FStepOut}) and
(FStoreStepFuncAddr=sym.Address.Address) then (FStoreStepFuncAddr=sym.Address.Address) then
result := dcsiSameLine result := dcsiSameLine
else if sym.Line = 0 then
result := dcsiNoLineInfo
else else
result := dcsiNewLine; result := dcsiNewLine;
sym.ReleaseReference; sym.ReleaseReference;