mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-01 06:50:40 +02:00
+ Add ifdefs for fake gdb.
git-svn-id: trunk@5505 -
This commit is contained in:
parent
4e2c9ffa9c
commit
ba164eea53
@ -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);
|
||||
|
@ -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}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user