mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-21 14:30:59 +08:00
Code Issues Packages Projects Releases Wiki Activity

a-ststio.adb, [...]: Further code clean up of previous change.

Browse Source 
* a-ststio.adb, s-direio.adb: Further code clean up of previous change.
	Update comments.

From-SVN: r136023
This commit is contained in:
Arnaud Charlet 2008-05-27 14:36:04 +02:00
parent d5c998a9fe
commit 0773617140
2 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gcc/ada/a-ststio.adb
View File

@ -101,11 +101,8 @@ package body Ada.Streams.Stream_IO is
-----------
procedure Close (File : in out File_Type) is
AFCB : aliased AP;
for AFCB'Address use File'Address;
pragma Import (Ada, AFCB);
begin
FIO.Close (AFCB'Access);
FIO.Close (AP (File)'Unrestricted_Access);
end Close;
------------
@ -140,11 +137,8 @@ package body Ada.Streams.Stream_IO is
------------
procedure Delete (File : in out File_Type) is
AFCB : aliased AP;
for AFCB'Address use File'Address;
pragma Import (Ada, AFCB);
begin
FIO.Delete (AFCB'Access);
FIO.Delete (AP (File)'Unrestricted_Access);
end Delete;
-----------------
@ -357,9 +351,6 @@ package body Ada.Streams.Stream_IO is
--------------
procedure Set_Mode (File : in out File_Type; Mode : File_Mode) is
AFCB : aliased AP;
for AFCB'Address use File'Address;
pragma Import (Ada, AFCB);
begin
FIO.Check_File_Open (AP (File));
@ -371,7 +362,7 @@ package body Ada.Streams.Stream_IO is
if ((File.Mode = FCB.In_File) /= (Mode = In_File))
and then not File.Update_Mode
then
FIO.Reset (AFCB'Access, FCB.Inout_File);
FIO.Reset (AP (File)'Unrestricted_Access, FCB.Inout_File);
File.Update_Mode := True;
end if;

6
gcc/ada/s-direio.adb
View File

@ -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;