diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-27 11:55:29 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-27 11:55:29 +0000 |
commit | c345a12b7da47ef63705a7d7f66c660afe94d327 (patch) | |
tree | 63ebbe112b9f5fc52d9573eba6fbdbbfb5d682c8 /gcc/ada/a-direio.adb | |
parent | e4a1bc04744f97111b893c8bbb7e47c11269ca09 (diff) | |
download | ppe42-gcc-c345a12b7da47ef63705a7d7f66c660afe94d327.tar.gz ppe42-gcc-c345a12b7da47ef63705a7d7f66c660afe94d327.zip |
Replace address clause by unrestricted_access, simpler and compatible with .NET.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@136018 138bc75d-0d04-0410-961f-82ee72b054a4
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 69476696a6c..9d315c88c5b 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; ----------------- |