diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-27 13:55:29 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-27 13:55:29 +0200 |
| commit | 3aa62371fc687f7075e7f61ca167788ae48c6bee (patch) | |
| tree | 63ebbe112b9f5fc52d9573eba6fbdbbfb5d682c8 /gcc/ada/a-direio.adb | |
| parent | 65d0beb0e1fe42d9d33fe0876b53c4f11d754bd2 (diff) | |
| download | gcc-3aa62371fc687f7075e7f61ca167788ae48c6bee.zip gcc-3aa62371fc687f7075e7f61ca167788ae48c6bee.tar.gz gcc-3aa62371fc687f7075e7f61ca167788ae48c6bee.tar.bz2 | |
Replace address clause by unrestricted_access, simpler and compatible with .NET.
From-SVN: r136018
Diffstat (limited to 'gcc/ada/a-direio.adb')
| -rw-r--r-- | gcc/ada/a-direio.adb | 10 |
1 files changed, 2 insertions, 8 deletions
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; ----------------- |