diff options
Diffstat (limited to 'gcc/ada/s-direio.adb')
| -rw-r--r-- | gcc/ada/s-direio.adb | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/gcc/ada/s-direio.adb b/gcc/ada/s-direio.adb index 46a4eace2dd..8f43e740d87 100644 --- a/gcc/ada/s-direio.adb +++ b/gcc/ada/s-direio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 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- -- @@ -58,7 +58,7 @@ package body System.Direct_IO is ------------------- function AFCB_Allocate (Control_Block : Direct_AFCB) return FCB.AFCB_Ptr is - pragma Warnings (Off, Control_Block); + pragma Unreferenced (Control_Block); begin return new Direct_AFCB; @@ -71,7 +71,7 @@ package body System.Direct_IO is -- No special processing required for Direct_IO close procedure AFCB_Close (File : access Direct_AFCB) is - pragma Warnings (Off, File); + pragma Unreferenced (File); begin null; @@ -104,11 +104,14 @@ package body System.Direct_IO is Name : in String := ""; Form : in String := "") is - File_Control_Block : Direct_AFCB; + Dummy_File_Control_Block : Direct_AFCB; + pragma Warnings (Off, Dummy_File_Control_Block); + -- Yes, we know this is never assigned a value, only the tag + -- is used for dispatching purposes, so that's expected. begin FIO.Open (File_Ptr => AP (File), - Dummy_FCB => File_Control_Block, + Dummy_FCB => Dummy_File_Control_Block, Mode => Mode, Name => Name, Form => Form, @@ -147,11 +150,14 @@ package body System.Direct_IO is Name : in String; Form : in String := "") is - File_Control_Block : Direct_AFCB; + Dummy_File_Control_Block : Direct_AFCB; + pragma Warnings (Off, Dummy_File_Control_Block); + -- Yes, we know this is never assigned a value, only the tag + -- is used for dispatching purposes, so that's expected. begin FIO.Open (File_Ptr => AP (File), - Dummy_FCB => File_Control_Block, + Dummy_FCB => Dummy_File_Control_Block, Mode => Mode, Name => Name, Form => Form, |