diff options
Diffstat (limited to 'gcc/ada/a-ztexio.adb')
-rw-r--r-- | gcc/ada/a-ztexio.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/a-ztexio.adb b/gcc/ada/a-ztexio.adb index a85cdb30998..4bf70405c67 100644 --- a/gcc/ada/a-ztexio.adb +++ b/gcc/ada/a-ztexio.adb @@ -134,7 +134,7 @@ package body Ada.Wide_Wide_Text_IO is procedure Close (File : in out File_Type) is begin - FIO.Close (AP (File)); + FIO.Close (AP (File)'Unrestricted_Access); end Close; --------- @@ -233,7 +233,7 @@ package body Ada.Wide_Wide_Text_IO is procedure Delete (File : in out File_Type) is begin - FIO.Delete (AP (File)); + FIO.Delete (AP (File)'Unrestricted_Access); end Delete; ----------------- @@ -1320,7 +1320,7 @@ package body Ada.Wide_Wide_Text_IO is end if; Terminate_Line (File); - FIO.Reset (AP (File), To_FCB (Mode)); + FIO.Reset (AP (File)'Unrestricted_Access, To_FCB (Mode)); File.Page := 1; File.Line := 1; File.Col := 1; @@ -1333,7 +1333,7 @@ package body Ada.Wide_Wide_Text_IO is procedure Reset (File : in out File_Type) is begin Terminate_Line (File); - FIO.Reset (AP (File)); + FIO.Reset (AP (File)'Unrestricted_Access); File.Page := 1; File.Line := 1; File.Col := 1; |