diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-13 10:39:28 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-13 10:39:28 +0200 |
| commit | 019578498e189c256e1238fe7d981fb02740a71a (patch) | |
| tree | 164176c7f48023bea63ede90147c01010044b3fa /gcc/ada/s-direio.adb | |
| parent | 79afa047b2dd7cd699600ade0275d5392cfc3e03 (diff) | |
| download | gcc-019578498e189c256e1238fe7d981fb02740a71a.zip gcc-019578498e189c256e1238fe7d981fb02740a71a.tar.gz gcc-019578498e189c256e1238fe7d981fb02740a71a.tar.bz2 | |
[multiple changes]
2009-07-13 Robert Dewar <dewar@adacore.com>
* gnat_ugn.texi: The gnatf switch no longer is needed to get full
details on unsupported constructs.
* rtsfind.adb: Remove references to All_Errors_Mode, give errors
unconditionally.
* s-trafor-default.adb: Correct some warnings
* s-valwch.adb, a-calend.adb, freeze.adb, prj.ads, s-vmexta.adb,
sem.adb, sem_ch10.adb, sem_ch6.adb, sem_disp.adb, vxaddr2line.adb:
Minor reformatting.
* par-ch4.adb (Conditional_Expression): Capture proper location for
conditional expression, should point to IF.
* s-tassta.adb, a-wtdeau.adb, s-tasren.adb, s-arit64.adb, s-imgdec.adb,
s-direio.adb, s-tpobop.adb, g-socket.adb, s-tposen.adb, s-taskin.adb,
g-calend.adb, s-regpat.adb, s-scaval.adb, g-catiio.adb: Minor code
reorganization (use conditional expressions).
2009-07-13 Ed Schonberg <schonberg@adacore.com>
* exp_util.adb (Remove_Side_Effects): If the expression is a call to a
build-in-place function that returns an inherently limited type (not
just a task type) create proper object declaration so that extra
build-in-place actuals are properly added to the call.
From-SVN: r149551
Diffstat (limited to 'gcc/ada/s-direio.adb')
| -rw-r--r-- | gcc/ada/s-direio.adb | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/gcc/ada/s-direio.adb b/gcc/ada/s-direio.adb index 11d2ca6..dee00cd 100644 --- a/gcc/ada/s-direio.adb +++ b/gcc/ada/s-direio.adb @@ -223,11 +223,7 @@ package body System.Direct_IO is -- last operation as other, to force the file position to be reset -- on the next read. - if File.Bytes = Size then - File.Last_Op := Op_Read; - else - File.Last_Op := Op_Other; - end if; + File.Last_Op := (if File.Bytes = Size then Op_Read else Op_Other); end Read; -- The following is the required overriding for Stream.Read, which is @@ -376,11 +372,7 @@ package body System.Direct_IO is -- last operation as other, to force the file position to be reset -- on the next write. - if File.Bytes = Size then - File.Last_Op := Op_Write; - else - File.Last_Op := Op_Other; - end if; + File.Last_Op := (if File.Bytes = Size then Op_Write else Op_Other); end Write; -- The following is the required overriding for Stream.Write, which is |