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

Avoid 'Discard file' question inside reset

git-svn-id: branches/fixes_2_6_0@20575 -
pierre преди 13 години
родител
ревизия
50661dd655
променени са 1 файла, в които са добавени 5 реда и са изтрити 0 реда
  1. 5 0
      ide/fpdebug.pas

+ 5 - 0
ide/fpdebug.pas

@@ -1088,11 +1088,16 @@ begin
 end;
 
 procedure TDebugController.Reset;
+var
+  old_reset : boolean;
 begin
   inherited Reset;
   { we need to free the executable
     if we want to recompile it }
+  old_reset:=reset_command;
+  reset_command:=true;
   SetExe('');
+  reset_command:=old_reset;
   NoSwitch:=false;
   { In case we have something that the compiler touched }
   If IDEApp.IsRunning then