From 0773617140ab3b8f4192a52bff59deecbacbbcfe Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 27 May 2008 14:36:04 +0200 Subject: a-ststio.adb, [...]: Further code clean up of previous change. * a-ststio.adb, s-direio.adb: Further code clean up of previous change. Update comments. From-SVN: r136023 --- gcc/ada/s-direio.adb | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gcc/ada/s-direio.adb') diff --git a/gcc/ada/s-direio.adb b/gcc/ada/s-direio.adb index 328051c..c764a1c 100644 --- a/gcc/ada/s-direio.adb +++ b/gcc/ada/s-direio.adb @@ -252,6 +252,9 @@ package body System.Direct_IO is procedure Reset (File : in out File_Type; Mode : FCB.File_Mode) is pragma Unmodified (File); + -- File is actually modified via Unrestricted_Access below, but + -- GNAT will generate a warning anyway. + begin FIO.Reset (AP (File)'Unrestricted_Access, Mode); File.Index := 1; @@ -260,6 +263,9 @@ package body System.Direct_IO is procedure Reset (File : in out File_Type) is pragma Unmodified (File); + -- File is actually modified via Unrestricted_Access below, but + -- GNAT will generate a warning anyway. + begin FIO.Reset (AP (File)'Unrestricted_Access); File.Index := 1; -- cgit v1.1