diff options
| -rw-r--r-- | gcc/ada/s-strxdr.adb | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/s-strxdr.adb b/gcc/ada/s-strxdr.adb index 0a13cf38850..6d93939cae2 100644 --- a/gcc/ada/s-strxdr.adb +++ b/gcc/ada/s-strxdr.adb @@ -1,12 +1,12 @@ ------------------------------------------------------------------------------ -- -- --- GNAT RUNTIME COMPONENTS -- +-- GNAT RUN-TIME COMPONENTS -- -- -- -- S Y S T E M . S T R E A M _ A T T R I B U T E S -- -- -- -- B o d y -- -- -- --- Copyright (C) 1996-2003 Free Software Foundation, Inc. -- +-- Copyright (C) 1996-2005 Free Software Foundation, Inc. -- -- -- -- GARLIC 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- -- @@ -35,6 +35,7 @@ -- standard. It is especially useful for exchanging streams between two -- different systems with different basic type representations and endianess. +with Ada.IO_Exceptions; with Ada.Streams; use Ada.Streams; with Ada.Unchecked_Conversion; @@ -45,8 +46,9 @@ package body System.Stream_Attributes is use UST; - Data_Error : exception; - -- Exception raised if insufficient data read. + Data_Error : exception renames Ada.IO_Exceptions.End_Error; + -- Exception raised if insufficient data read (End_Error is + -- mandated by AI95-00132). SU : constant := System.Storage_Unit; -- XXXXX pragma Assert (SU = 8); |
