diff options
Diffstat (limited to 'gcc/ada/a-ststio.adb')
| -rw-r--r-- | gcc/ada/a-ststio.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/a-ststio.adb b/gcc/ada/a-ststio.adb index 7091d5d9f7b..d1084d64b5b 100644 --- a/gcc/ada/a-ststio.adb +++ b/gcc/ada/a-ststio.adb @@ -76,7 +76,7 @@ package body Ada.Streams.Stream_IO is -- No special processing required for closing Stream_IO file - procedure AFCB_Close (File : access Stream_AFCB) is + procedure AFCB_Close (File : not null access Stream_AFCB) is pragma Warnings (Off, File); begin null; @@ -86,7 +86,7 @@ package body Ada.Streams.Stream_IO is -- AFCB_Free -- --------------- - procedure AFCB_Free (File : access Stream_AFCB) is + procedure AFCB_Free (File : not null access Stream_AFCB) is type FCB_Ptr is access all Stream_AFCB; FT : FCB_Ptr := FCB_Ptr (File); |