From 2353aeebc50124bc27a9d65d09bc696cca7cd19f Mon Sep 17 00:00:00 2001 From: Pascal Obry Date: Tue, 14 Aug 2007 10:49:36 +0200 Subject: [PATCH] s-fileio.adb (Is_Open): Add check for usability of the underlying file stream. 2007-08-14 Pascal Obry * s-fileio.adb (Is_Open): Add check for usability of the underlying file stream. From-SVN: r127461 --- gcc/ada/s-fileio.adb | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 3ae5d3d5131..5607e7021b6 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -610,7 +610,13 @@ package body System.File_IO is function Is_Open (File : AFCB_Ptr) return Boolean is begin - return (File /= null); + -- We return True if the file is open, and the underlying file stream is + -- usable. In particular on Windows an application linked with -mwindows + -- option set does not have a console attached. In this case standard + -- files (Current_Output, Current_Error, Current_Input) are not created. + -- We want Is_Open (Current_Output) to return False in this case. + + return File /= null and then fileno (File.Stream) /= -1; end Is_Open; ------------------- -- 2.30.2