paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 00:59:08 +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); procedure TBrowserWindow.SelectTab(BrowserTab: Sw_integer);
var Tabs: Sw_integer; var Tabs: Sw_integer;
{$ifndef NODEBUG}
PB : PBreakpoint; PB : PBreakpoint;
{$endif}
PS :PString; PS :PString;
l : longint; l : longint;
begin begin
@ -1715,6 +1717,7 @@ begin
btMemInfo: btMemInfo:
if assigned(MemInfoView) then if assigned(MemInfoView) then
MemInfoView^.Select; MemInfoView^.Select;
{$ifndef NODEBUG}
btBreakWatch : btBreakWatch :
begin begin
if Assigned(Sym) then if Assigned(Sym) then
@ -1771,7 +1774,7 @@ begin
end; end;
end; end;
end; end;
{$endif NODEBUG}
end; end;
Tabs:=0; Tabs:=0;
if assigned(ScopeView) then if assigned(ScopeView) then
@ -1784,9 +1787,11 @@ begin
{$endif HASOUTLINE} {$endif HASOUTLINE}
if assigned(MemInfoView) then if assigned(MemInfoView) then
Tabs:=Tabs or (1 shl btMemInfo); Tabs:=Tabs or (1 shl btMemInfo);
{$ifndef NODEBUG}
if Assigned(Sym) then if Assigned(Sym) then
if (Pos('proc',Sym^.GetText)>0) or (Pos('var',Sym^.GetText)>0) then if (Pos('proc',Sym^.GetText)>0) or (Pos('var',Sym^.GetText)>0) then
Tabs:=Tabs or (1 shl btBreakWatch); Tabs:=Tabs or (1 shl btBreakWatch);
{$endif NODEBUG}
if assigned(UnitInfo) then if assigned(UnitInfo) then
Tabs:=Tabs or (1 shl btUnitInfo); Tabs:=Tabs or (1 shl btUnitInfo);
if PageTab<>nil then PageTab^.SetParams(Tabs,BrowserTab); if PageTab<>nil then PageTab^.SetParams(Tabs,BrowserTab);