From 3aa62371fc687f7075e7f61ca167788ae48c6bee Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 27 May 2008 13:55:29 +0200 Subject: Replace address clause by unrestricted_access, simpler and compatible with .NET. From-SVN: r136018 --- gcc/ada/a-direio.adb | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'gcc/ada/a-direio.adb') diff --git a/gcc/ada/a-direio.adb b/gcc/ada/a-direio.adb index 6947669..9d315c8 100644 --- a/gcc/ada/a-direio.adb +++ b/gcc/ada/a-direio.adb @@ -73,11 +73,8 @@ package body Ada.Direct_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; ------------ @@ -100,11 +97,8 @@ package body Ada.Direct_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; ----------------- -- cgit v1.1