From ec40b86c7751f67b1d3ffc5b3edb2df872215fd9 Mon Sep 17 00:00:00 2001 From: Hristian Kirtchev Date: Tue, 25 Apr 2017 10:40:23 +0000 Subject: sem_prag.adb, [...]: Minor reformatting. 2017-04-25 Hristian Kirtchev * sem_prag.adb, exp_ch6.adb, binde.adb, sem_disp.adb, s-fileio.adb: Minor reformatting. From-SVN: r247179 --- gcc/ada/s-fileio.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'gcc/ada/s-fileio.adb') 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; -- cgit v1.1