PR 33870

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-sequio.ads

diff --git a/gcc/ada/s-sequio.ads b/gcc/ada/s-sequio.ads
index 09c41ae..d263ec3 100644 (file)
--- a/gcc/ada/s-sequio.ads
+++ b/gcc/ada/s-sequio.ads
@@ -48,8 +48,8 @@ package System.Sequential_IO is
    function AFCB_Allocate
      (Control_Block : Sequential_AFCB) return FCB.AFCB_Ptr;
 
-   procedure AFCB_Close (File : access Sequential_AFCB);
-   procedure AFCB_Free  (File : access Sequential_AFCB);
+   procedure AFCB_Close (File : not null access Sequential_AFCB);
+   procedure AFCB_Free  (File : not null access Sequential_AFCB);
 
    procedure Read
      (File : in out Sequential_AFCB;