OSDN Git Service

2007-08-14 Pascal Obry <obry@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 14 Aug 2007 08:49:36 +0000 (08:49 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 14 Aug 2007 08:49:36 +0000 (08:49 +0000)
commit6801e7f0b0a05a013d98614c49f3a799f803c94b
tree272fbcb381d730de833c289baa036941d229d14a
parent3f61861d9aa3478ff934a8dbee01cdaf05aa3945
2007-08-14  Pascal Obry  <obry@adacore.com>

* s-fileio.adb (Is_Open): Add check for usability of the underlying
file stream.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127461 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/s-fileio.adb