diff options
Diffstat (limited to 'gcc/ada/a-textio.adb')
| -rw-r--r-- | gcc/ada/a-textio.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/a-textio.adb b/gcc/ada/a-textio.adb index 0e6dd3240c1..aa566dac230 100644 --- a/gcc/ada/a-textio.adb +++ b/gcc/ada/a-textio.adb @@ -69,7 +69,7 @@ package body Ada.Text_IO is -- AFCB_Close -- ---------------- - procedure AFCB_Close (File : access Text_AFCB) is + procedure AFCB_Close (File : not null access 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 @@ -91,7 +91,7 @@ package body Ada.Text_IO is -- AFCB_Free -- --------------- - procedure AFCB_Free (File : access Text_AFCB) is + procedure AFCB_Free (File : not null access Text_AFCB) is type FCB_Ptr is access all Text_AFCB; FT : FCB_Ptr := FCB_Ptr (File); |