paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-16 09:10:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* another staticvarsym

Browse Source 
git-svn-id: trunk@5298 -
This commit is contained in:
peter 2006-11-09 18:22:51 +00:00
parent 610cf1e2da
commit 36a75f31f4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/fpsymbol.pas
View File

@ -1367,7 +1367,7 @@ begin
GetExtent(R); R.Grow(-1,-1); R.B.Y:=R.A.Y+1;
{$ifndef NODEBUG}
if {assigned(Debugger) and Debugger^.IsRunning and}
assigned(Sym) and (Sym^.typ in [fieldvarsym,globalvarsym,localvarsym,paravarsym]) then
assigned(Sym) and (Sym^.typ in [fieldvarsym,staticvarsym,localvarsym,paravarsym]) then
begin
New(DebuggerValue,Init(ATitle,Sym));
New(ST, Init(R, ' '+DebuggerValue^.GetText));