+ Add ifdefs for fake gdb.

git-svn-id: trunk@5505 -
This commit is contained in:
daniel 2006-11-27 09:03:54 +00:00
parent 4e2c9ffa9c
commit ba164eea53
2 changed files with 14 additions and 3 deletions

View File

@ -21,8 +21,11 @@ uses
Objects,Drivers,Views,App,Gadgets,MsgBox,Tabs,
WEditor,WCEdit,
Comphook,Browcol,
WHTMLScn,fpevalw,
FPViews,FPSymbol,fpstring;
WHTMLScn,
FPViews,FPSymbol,fpstring
{$ifndef NODEBUG}
,fpevalw
{$endif};
type
TExecType = (exNormal,exNoSwap,exDosShell);

View File

@ -254,7 +254,15 @@ begin
else
dispose(P,Done);
end;
{$endif NODEBUG}
{$ifdef NODEBUG}
procedure TIDEapp.do_evaluate;
begin
nodebugger;
end;
{$else}
procedure TIDEapp.do_evaluate;
var d:Pevaluate_dialog;
@ -268,5 +276,5 @@ begin
desktop^.execview(d);
dispose(d,done);
end;
{$endif NODEBUG}
{$endif}