diff options
Diffstat (limited to 'gcc/ada/s-direio.ads')
| -rw-r--r-- | gcc/ada/s-direio.ads | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/s-direio.ads b/gcc/ada/s-direio.ads index 756bcb25281..a43ebb67fc7 100644 --- a/gcc/ada/s-direio.ads +++ b/gcc/ada/s-direio.ads @@ -66,8 +66,8 @@ package System.Direct_IO is function AFCB_Allocate (Control_Block : Direct_AFCB) return FCB.AFCB_Ptr; - procedure AFCB_Close (File : access Direct_AFCB); - procedure AFCB_Free (File : access Direct_AFCB); + procedure AFCB_Close (File : not null access Direct_AFCB); + procedure AFCB_Free (File : not null access Direct_AFCB); procedure Read (File : in out Direct_AFCB; |