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

* fixed compilation, patch committed on behalf of Pierre

Browse Source 
git-svn-id: trunk@6028 -
This commit is contained in:
tom_at_work 2007-01-17 20:24:27 +00:00
parent b3137786e2
commit 71cf41e252
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/fpsymbol.pas
View File

@ -1701,7 +1701,9 @@ end;
procedure TBrowserWindow.SelectTab(BrowserTab: Sw_integer);
var Tabs: Sw_integer;
{$ifndef NODEBUG}
PB : PBreakpoint;
{$endif}
PS :PString;
l : longint;
begin
@ -1715,6 +1717,7 @@ begin
btMemInfo:
if assigned(MemInfoView) then
MemInfoView^.Select;
{$ifndef NODEBUG}
btBreakWatch :
begin
if Assigned(Sym) then
@ -1771,7 +1774,7 @@ begin
end;
end;
end;
{$endif NODEBUG}
end;
Tabs:=0;
if assigned(ScopeView) then
@ -1784,9 +1787,11 @@ begin
{$endif HASOUTLINE}
if assigned(MemInfoView) then
Tabs:=Tabs or (1 shl btMemInfo);
{$ifndef NODEBUG}
if Assigned(Sym) then
if (Pos('proc',Sym^.GetText)>0) or (Pos('var',Sym^.GetText)>0) then
Tabs:=Tabs or (1 shl btBreakWatch);
{$endif NODEBUG}
if assigned(UnitInfo) then
Tabs:=Tabs or (1 shl btUnitInfo);
if PageTab<>nil then PageTab^.SetParams(Tabs,BrowserTab);