diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-12 15:33:39 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-12 15:33:39 +0100 |
| commit | c9556982a79dfb432240760740c9c2ccdb88e336 (patch) | |
| tree | 81d5fd310a93d1f73af0055d67f9e7dd6e158065 /gcc/ada/g-bytswa.ads | |
| parent | cf7bb903f43f72bd5c585665fe471d08f485d430 (diff) | |
| download | gcc-c9556982a79dfb432240760740c9c2ccdb88e336.zip gcc-c9556982a79dfb432240760740c9c2ccdb88e336.tar.gz gcc-c9556982a79dfb432240760740c9c2ccdb88e336.tar.bz2 | |
[multiple changes]
2011-12-12 Robert Dewar <dewar@adacore.com>
* s-taprop-mingw.adb: Minor reformatting.
2011-12-12 Nicolas Roche <roche@adacore.com>
* gcc-interface/Make-lang.in: Update dependencies.
Add gnattools4 target when building tools in canadian mode
2011-12-12 Javier Miranda <miranda@adacore.com>
* exp_disp.adb (Make_VM_TSD): Complete previous
patch.
2011-12-12 Bob Duff <duff@adacore.com>
* s-tpobop.adb: Use named notation.
* g-bytswa.ads, s-taprop.ads: Minor comment fix.
2011-12-12 Arnaud Charlet <charlet@adacore.com>
* make.adb: Minor comment update.
From-SVN: r182242
Diffstat (limited to 'gcc/ada/g-bytswa.ads')
| -rw-r--r-- | gcc/ada/g-bytswa.ads | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/g-bytswa.ads b/gcc/ada/g-bytswa.ads index 77a6242..7e0dd8f 100644 --- a/gcc/ada/g-bytswa.ads +++ b/gcc/ada/g-bytswa.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2006-2010, AdaCore -- +-- Copyright (C) 2006-2011, AdaCore -- -- -- -- GNAT 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- -- @@ -64,6 +64,7 @@ -- subtype String4 is String (1 .. 4); -- function Swapped is new Byte_Swapping.Swapped4 (String4); -- S : String4 := "ABCD"; +-- for S'Alignment use 4; -- begin -- Put_Line (S); -- S := Swapped (S); @@ -74,6 +75,7 @@ -- declare -- type Mask is array (0 .. 15) of Boolean; +-- for Mask'Alignment use 2; -- for Mask'Component_Size use Boolean'Size; -- X : Mask := (0 .. 7 => True, others => False); -- function Swapped is new Byte_Swapping.Swapped2 (Mask); |