Browse Source

Avoid 'Discard file' question inside reset

git-svn-id: branches/fixes_2_6_0@20575 -
pierre 13 years ago
parent
commit
50661dd655
1 changed files with 5 additions and 0 deletions
  1. 5 0
      ide/fpdebug.pas

+ 5 - 0
ide/fpdebug.pas

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