diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2017-04-25 10:40:23 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 12:40:23 +0200 |
| commit | ec40b86c7751f67b1d3ffc5b3edb2df872215fd9 (patch) | |
| tree | b948809c3993351133c1017bd78e188b792f9f39 /gcc/ada/s-fileio.adb | |
| parent | ca1f6b2991e1864c8db5c9f082c62804467b2a07 (diff) | |
| download | gcc-ec40b86c7751f67b1d3ffc5b3edb2df872215fd9.zip gcc-ec40b86c7751f67b1d3ffc5b3edb2df872215fd9.tar.gz gcc-ec40b86c7751f67b1d3ffc5b3edb2df872215fd9.tar.bz2 | |
sem_prag.adb, [...]: Minor reformatting.
2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
* sem_prag.adb, exp_ch6.adb, binde.adb, sem_disp.adb, s-fileio.adb:
Minor reformatting.
From-SVN: r247179
Diffstat (limited to 'gcc/ada/s-fileio.adb')
| -rw-r--r-- | gcc/ada/s-fileio.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 796b0b1..870350c 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -296,14 +296,15 @@ package body System.File_IO is Temp : access Temp_File_Record_Ptr := Temp_Files'Access; -- Note the double indirection here + Discard : int; New_Temp : Temp_File_Record_Ptr; - Discard : int; + begin while Temp.all.all.File /= File loop Temp := Temp.all.all.Next'Access; end loop; - Discard := unlink (Temp.all.all.Name'Address); + Discard := unlink (Temp.all.all.Name'Address); New_Temp := Temp.all.all.Next; Free (Temp.all); Temp.all := New_Temp; |