diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-16 08:46:59 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-16 08:46:59 +0000 |
| commit | 1b33a3e8faa653e4e080710242d6a47c95300cc6 (patch) | |
| tree | f5f4c27347ac9d8a1b70f2b4cc49199be1fc9584 | |
| parent | 81afcabab09e41e0de923a6101063f4d946ee6c4 (diff) | |
| download | ppe42-gcc-1b33a3e8faa653e4e080710242d6a47c95300cc6.tar.gz ppe42-gcc-1b33a3e8faa653e4e080710242d6a47c95300cc6.zip | |
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
| -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); |
