Преглед на файлове

+ Prevent error message after program terminates.

git-svn-id: trunk@6936 -
daniel преди 18 години
родител
ревизия
0b3ddb0b82
променени са 1 файла, в които са добавени 2 реда и са изтрити 1 реда
  1. 2 1
      ide/fpmrun.inc

+ 2 - 1
ide/fpmrun.inc

@@ -99,7 +99,8 @@ begin
      else
       Debugger^.TraceNext;
     end;}
-  Debugger^.AnnotateError;
+  if Debugger^.IsRunning then
+    Debugger^.AnnotateError;
 {$else NODEBUG}
   NoDebugger;
 {$endif NODEBUG}