diff options
| author | Thomas Quinot <quinot@adacore.com> | 2005-06-16 10:46:59 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-06-16 10:46:59 +0200 |
| commit | ab129900a4ffcf11e054377a8ff277ca3aca6c94 (patch) | |
| tree | f5f4c27347ac9d8a1b70f2b4cc49199be1fc9584 /gcc/ada/s-strxdr.adb | |
| parent | bd6f5b5cb203d46babb682c1379cce168f7eab41 (diff) | |
| download | gcc-ab129900a4ffcf11e054377a8ff277ca3aca6c94.tar.gz | |
s-strxdr.adb: Follow AI95-00132
2005-06-14 Thomas Quinot <quinot@adacore.com>
* s-strxdr.adb: Follow AI95-00132
From-SVN: r101062
Diffstat (limited to 'gcc/ada/s-strxdr.adb')
| -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); |