From f4818c2bfd7bf790895a818d7fec9ff6d009a8cc Mon Sep 17 00:00:00 2001 From: joost Date: Fri, 19 Dec 2014 10:42:19 +0000 Subject: [PATCH] FpDebug: Do not stop on lines with unknown line info (linenr=0) git-svn-id: trunk@47222 - --- components/fpdebug/fpdbgclasses.pp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/components/fpdebug/fpdbgclasses.pp b/components/fpdebug/fpdbgclasses.pp index 4928a839b3..c41c456d75 100644 --- a/components/fpdebug/fpdbgclasses.pp +++ b/components/fpdebug/fpdbgclasses.pp @@ -1043,6 +1043,8 @@ begin if (((FStoreStepSrcFilename=sym.FileName) and (FStoreStepSrcLineNo=sym.Line)) {or FStepOut}) and (FStoreStepFuncAddr=sym.Address.Address) then result := dcsiSameLine + else if sym.Line = 0 then + result := dcsiNoLineInfo else result := dcsiNewLine; sym.ReleaseReference;