OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

s-strxdr.adb: Follow AI95-00132

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

	* s-strxdr.adb: Follow AI95-00132

From-SVN: r101062
This commit is contained in:
Thomas Quinot 2005-06-16 10:46:59 +02:00 committed by Arnaud Charlet
parent bd6f5b5cb2
commit ab129900a4
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/ada/s-strxdr.adb
View File

@ -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);