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

* Try to correct mantis bug report 7301

git-svn-id: trunk@7112 -
pierre пре 18 година
родитељ
комит
b6b3a6cdff
1 измењених фајлова са 5 додато и 1 уклоњено
  1. 5 1
      ide/fpmrun.inc

+ 5 - 1
ide/fpmrun.inc

@@ -271,7 +271,11 @@ begin
     end
 {$ifndef NODEBUG}
   else
-    Debugger^.Continue
+    begin
+      if AskRecompileIfModified then
+        exit;
+      Debugger^.Continue;
+    end;
 {$endif}
   ;
 end;