diff options
Diffstat (limited to 'gcc/ada/a-ststio.adb')
-rw-r--r-- | gcc/ada/a-ststio.adb | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/gcc/ada/a-ststio.adb b/gcc/ada/a-ststio.adb index cf2f4ea2ee2..79ee6cdfd5a 100644 --- a/gcc/ada/a-ststio.adb +++ b/gcc/ada/a-ststio.adb @@ -241,11 +241,7 @@ package body Ada.Streams.Stream_IO is -- (and furthermore there are situations (such as the case of writing -- a sequential Posix FIFO file) where the lseek would cause problems. - if Mode = Out_File then - File.Last_Op := Op_Write; - else - File.Last_Op := Op_Read; - end if; + File.Last_Op := (if Mode = Out_File then Op_Write else Op_Read); end Open; ---------- |