paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 23:01:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: deal with parentfp for nested procs

Browse Source 
git-svn-id: trunk@44642 -
This commit is contained in:
martin 2014-04-07 20:33:20 +00:00
parent 3c56c419a5
commit b0e9f959f6
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgdwarffreepascal.pas
View File

@ -96,6 +96,8 @@ begin
if FOuterNestContext <> nil then begin
ADbgValue := FOuterNestContext.FindSymbol(AName); // TODO: pass upper/lower
if ADbgValue <> nil then
AddRefToVal(ADbgValue);
Result := True; // self, global was done by outer
exit;
end;
@ -154,6 +156,8 @@ begin
FOuterNestContext := Dwarf.FindContext(ThreadId, i, pc);
ADbgValue := FOuterNestContext.FindSymbol(AName); // TODO: pass upper/lower
if ADbgValue <> nil then
AddRefToVal(ADbgValue);
Result := True; // self, global was done by outer
end;