diff options
Diffstat (limited to 'gcc/ada/s-sequio.adb')
-rw-r--r-- | gcc/ada/s-sequio.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/s-sequio.adb b/gcc/ada/s-sequio.adb index 50e568211ba..72f2e2b3bf2 100644 --- a/gcc/ada/s-sequio.adb +++ b/gcc/ada/s-sequio.adb @@ -59,7 +59,7 @@ package body System.Sequential_IO is -- No special processing required for Sequential_IO close - procedure AFCB_Close (File : access Sequential_AFCB) is + procedure AFCB_Close (File : not null access Sequential_AFCB) is pragma Warnings (Off, File); begin @@ -70,7 +70,7 @@ package body System.Sequential_IO is -- AFCB_Free -- --------------- - procedure AFCB_Free (File : access Sequential_AFCB) is + procedure AFCB_Free (File : not null access Sequential_AFCB) is type FCB_Ptr is access all Sequential_AFCB; |