diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 15:28:21 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 15:28:21 +0100 |
| commit | 0727601add7a6b06c1b114389707878a33b731a6 (patch) | |
| tree | f1d314e310e2f974d4f736f5f0aac7a9c88a149d /gcc/ada/a-textio.adb | |
| parent | 90e9a6bef63cb79b87f6c7e58133f7e4cc9de52c (diff) | |
| download | gcc-0727601add7a6b06c1b114389707878a33b731a6.zip gcc-0727601add7a6b06c1b114389707878a33b731a6.tar.gz gcc-0727601add7a6b06c1b114389707878a33b731a6.tar.bz2 | |
[multiple changes]
2009-11-30 Jerome Lambourg <lambourg@adacore.com>
* exp_ch3.adb (Make_Predefined_Primitive_Specs): Improve comment for
the Value_Type case.
2009-11-30 Thomas Quinot <quinot@adacore.com>
* a-textio.adb: Minor reformatting
2009-11-30 Pascal Obry <obry@adacore.com>
* adaint.c: Fix bug in passing parameter.
* expect.c: Include io.h to get definition of _open_osfhandle
From-SVN: r154810
Diffstat (limited to 'gcc/ada/a-textio.adb')
| -rw-r--r-- | gcc/ada/a-textio.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/a-textio.adb b/gcc/ada/a-textio.adb index ceacfe5..0dd5463 100644 --- a/gcc/ada/a-textio.adb +++ b/gcc/ada/a-textio.adb @@ -1659,8 +1659,8 @@ package body Ada.Text_IO is begin -- Don't allow change of mode for current file (RM A.10.2(5)) - if (File = Current_In or else - File = Current_Out or else + if (File = Current_In or else + File = Current_Out or else File = Current_Error) and then To_FCB (Mode) /= File.Mode then |