浏览代码

+ Add ifdefs for fake gdb.

git-svn-id: trunk@5505 -
daniel 18 年之前
父节点
当前提交
ba164eea53
共有 2 个文件被更改,包括 14 次插入3 次删除
  1. 5 2
      ide/fpide.pas
  2. 9 1
      ide/fpmdebug.inc

+ 5 - 2
ide/fpide.pas

@@ -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);

+ 9 - 1
ide/fpmdebug.inc

@@ -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}