diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-08 14:59:38 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-08 14:59:38 +0200 |
| commit | e8c4584bd79f5b0f07d91b5f144a7b8d9721cb5e (patch) | |
| tree | 767c16ac38b7f910bf923b39f8efa91c3851318f /gcc/ada | |
| parent | 62b7afe926099bac064a39a88bb3685ce50c2965 (diff) | |
| download | gcc-e8c4584bd79f5b0f07d91b5f144a7b8d9721cb5e.zip gcc-e8c4584bd79f5b0f07d91b5f144a7b8d9721cb5e.tar.gz gcc-e8c4584bd79f5b0f07d91b5f144a7b8d9721cb5e.tar.bz2 | |
s-strxdr.adb: Minor reformatting
2008-08-08 Robert Dewar <dewar@adacore.com>
* s-strxdr.adb: Minor reformatting
From-SVN: r138878
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/s-strxdr.adb | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gcc/ada/s-strxdr.adb b/gcc/ada/s-strxdr.adb index 7732daa..c123fea 100644 --- a/gcc/ada/s-strxdr.adb +++ b/gcc/ada/s-strxdr.adb @@ -47,11 +47,11 @@ package body System.Stream_Attributes is use UST; Data_Error : exception renames Ada.IO_Exceptions.End_Error; - -- Exception raised if insufficient data read (End_Error is - -- mandated by AI95-00132). + -- Exception raised if insufficient data read (End_Error is mandated by + -- AI95-00132). SU : constant := System.Storage_Unit; - -- XXXXX pragma Assert (SU = 8); + -- The code in this body assumes that SU = 8 BB : constant := 2 ** SU; -- Byte base BL : constant := 2 ** SU - 1; -- Byte last @@ -127,7 +127,7 @@ package body System.Stream_Attributes is -- in the range [-2147483648,2147483647]. The integer is represented -- in two's complement notation. The most and least significant bytes -- are 0 and 3, respectively. Integers are declared as follows: - -- + -- (MSB) (LSB) -- +-------+-------+-------+-------+ -- |byte 0 |byte 1 |byte 2 |byte 3 | @@ -175,7 +175,7 @@ package body System.Stream_Attributes is -- integer in the range [0,4294967295]. It is represented by an unsigned -- binary number whose most and least significant bytes are 0 and 3, -- respectively. An unsigned integer is declared as follows: - -- + -- (MSB) (LSB) -- +-------+-------+-------+-------+ -- |byte 0 |byte 1 |byte 2 |byte 3 | @@ -222,10 +222,10 @@ package body System.Stream_Attributes is -- or 4 bytes). The encoding used is the IEEE standard for normalized -- single-precision floating-point numbers. - -- The standard defines the encoding for the double-precision - -- floating-point data type "double" (64 bits or 8 bytes). The - -- encoding used is the IEEE standard for normalized double-precision - -- floating-point numbers. + -- The standard defines the encoding used for the double-precision + -- floating-point data type "double" (64 bits or 8 bytes). The encoding + -- used is the IEEE standard for normalized double-precision floating-point + -- numbers. SF_L : constant := 4; -- Single precision F_L : constant := 4; -- Single precision |