2005-06-14 Thomas Quinot <quinot@adacore.com>

	* s-strxdr.adb: Follow AI95-00132

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101062 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/s-strxdr.adb b/gcc/ada/s-strxdr.adb
index 0a13cf3..6d93939 100644 (file)
--- 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);