diff options
Diffstat (limited to 'gcc/ada/a-witeio.adb')
-rw-r--r-- | gcc/ada/a-witeio.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/a-witeio.adb b/gcc/ada/a-witeio.adb index 7f72c1c..07e3fd2 100644 --- a/gcc/ada/a-witeio.adb +++ b/gcc/ada/a-witeio.adb @@ -96,7 +96,7 @@ package body Ada.Wide_Text_IO is -- AFCB_Close -- ---------------- - procedure AFCB_Close (File : access Wide_Text_AFCB) is + procedure AFCB_Close (File : not null access Wide_Text_AFCB) is begin -- If the file being closed is one of the current files, then close -- the corresponding current file. It is not clear that this action @@ -118,7 +118,7 @@ package body Ada.Wide_Text_IO is -- AFCB_Free -- --------------- - procedure AFCB_Free (File : access Wide_Text_AFCB) is + procedure AFCB_Free (File : not null access Wide_Text_AFCB) is type FCB_Ptr is access all Wide_Text_AFCB; FT : FCB_Ptr := FCB_Ptr (File); |