diff options
Diffstat (limited to 'gcc/ada/s-sequio.adb')
| -rw-r--r-- | gcc/ada/s-sequio.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/s-sequio.adb b/gcc/ada/s-sequio.adb index 87c6d69ede7..72dfbcf34d7 100644 --- a/gcc/ada/s-sequio.adb +++ b/gcc/ada/s-sequio.adb @@ -6,9 +6,9 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.7 $ -- +-- $Revision$ -- -- --- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -50,6 +50,8 @@ package body System.Sequential_IO is (Control_Block : Sequential_AFCB) return FCB.AFCB_Ptr is + pragma Warnings (Off, Control_Block); + begin return new Sequential_AFCB; end AFCB_Allocate; @@ -61,6 +63,8 @@ package body System.Sequential_IO is -- No special processing required for Sequential_IO close procedure AFCB_Close (File : access Sequential_AFCB) is + pragma Warnings (Off, File); + begin null; end AFCB_Close; |