Преглед изворни кода

+ 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,
   Objects,Drivers,Views,App,Gadgets,MsgBox,Tabs,
   WEditor,WCEdit,
   WEditor,WCEdit,
   Comphook,Browcol,
   Comphook,Browcol,
-  WHTMLScn,fpevalw,
-  FPViews,FPSymbol,fpstring;
+  WHTMLScn,
+  FPViews,FPSymbol,fpstring
+  {$ifndef NODEBUG}
+  ,fpevalw
+  {$endif};
 
 
 type
 type
     TExecType = (exNormal,exNoSwap,exDosShell);
     TExecType = (exNormal,exNoSwap,exDosShell);

+ 9 - 1
ide/fpmdebug.inc

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