diff options
Diffstat (limited to 'gcc/ada/a-ststio.adb')
| -rw-r--r-- | gcc/ada/a-ststio.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/a-ststio.adb b/gcc/ada/a-ststio.adb index f262b2ec990..eacf0c5f1d3 100644 --- a/gcc/ada/a-ststio.adb +++ b/gcc/ada/a-ststio.adb @@ -6,9 +6,9 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.32 $ +-- $Revision$ -- -- --- Copyright (C) 1992-2000, 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- -- @@ -64,6 +64,8 @@ package body Ada.Streams.Stream_IO is ------------------- function AFCB_Allocate (Control_Block : Stream_AFCB) return FCB.AFCB_Ptr is + pragma Warnings (Off, Control_Block); + begin return new Stream_AFCB; end AFCB_Allocate; @@ -75,6 +77,8 @@ package body Ada.Streams.Stream_IO is -- No special processing required for closing Stream_IO file procedure AFCB_Close (File : access Stream_AFCB) is + pragma Warnings (Off, File); + begin null; end AFCB_Close; @@ -149,7 +153,7 @@ package body Ada.Streams.Stream_IO is -- Flush -- ----------- - procedure Flush (File : in out File_Type) is + procedure Flush (File : File_Type) is begin FIO.Flush (AP (File)); end Flush; @@ -261,10 +265,6 @@ package body Ada.Streams.Stream_IO is if File.Last_Op /= Op_Read or else File.Shared_Status = FCB.Yes then - if End_Of_File (File) then - raise End_Error; - end if; - Locked_Processing : begin SSL.Lock_Task.all; Set_Position (File); |
