Prechádzať zdrojové kódy

* Disable iocheck when closing gdb_file

git-svn-id: branches/fixes_2_6_0@20581 -
pierre 13 rokov pred
rodič
commit
180adcfeab
1 zmenil súbory, kde vykonal 16 pridanie a 0 odobranie
  1. 16 0
      ide/fpdebug.pas

+ 16 - 0
ide/fpdebug.pas

@@ -3735,6 +3735,9 @@ begin
 {$endif def GDBWINDOW}
 end;
 
+const
+  Invalid_gdb_file_handle: boolean = false;
+
 
 procedure DoneDebugger;
 begin
@@ -3755,7 +3758,20 @@ begin
   If Use_gdb_file then
     begin
       Use_gdb_file:=false;
+{$IFOPT I+}
+  {$I-}
+  {$DEFINE REENABLE_I}
+{$ENDIF}
       Close(GDB_file);
+      if ioresult<>0 then
+        begin
+          { This handle seems to get lost for DJGPP
+            don't bother too much about this. }
+          Invalid_gdb_file_handle:=true;
+        end;
+{$IFDEF REENABLE_I}
+  {$I+}
+{$ENDIF}
     end;
   If IDEApp.IsRunning then
     PopStatus;