From ab129900a4ffcf11e054377a8ff277ca3aca6c94 Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Thu, 16 Jun 2005 10:46:59 +0200 Subject: [PATCH] s-strxdr.adb: Follow AI95-00132 2005-06-14 Thomas Quinot * s-strxdr.adb: Follow AI95-00132 From-SVN: r101062 --- gcc/ada/s-strxdr.adb | 10 ++++++---- 1 file 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);