Skip to content

R
riscv-gcc-1
Commit ab129900 by Thomas Quinot Committed by Arnaud Charlet
Options

s-strxdr.adb: Follow AI95-00132 

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

	* s-strxdr.adb: Follow AI95-00132

From-SVN: r101062
parent bd6f5b5c
Showing with 6 additions and 4 deletions
gcc/ada/s-strxdr.adb
------------------------------------------------------------------------------
-- --
-- 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);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment