diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 16:02:43 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 16:02:43 +0200 |
| commit | 2feb1f84d7f26dadd19811a81b33f7bf29065272 (patch) | |
| tree | d04a81c0aa052ba819fa5b12d4ba13324ba8a928 /gcc/ada/s-pack12.adb | |
| parent | fc193526f31a0ea8746348e0ee67aa37c6e7a9c7 (diff) | |
| download | gcc-2feb1f84d7f26dadd19811a81b33f7bf29065272.tar.gz | |
[multiple changes]
2014-08-01 Robert Dewar <dewar@adacore.com>
* sem_ch8.adb: Minor reformatting.
2014-08-01 Yannick Moy <moy@adacore.com>
* sem_ch13.adb (Insert_Pragma): Add special case for precondition
pragmas from aspects, which need to be inserted in proper order.
2014-08-01 Ed Schonberg <schonberg@adacore.com>
* exp_aggr.adb (Expand_Record_Aggregate, Init_Hidden_Discriminants):
Handle properly a type extension that constrains a discriminated
derived type that renames other discriminants of an ancestor.
2014-08-01 Thomas Quinot <quinot@adacore.com>
* s-pack06.adb, s-pack10.adb, s-pack03.ads, s-pack12.adb, s-pack14.ads,
s-pack25.adb: Fix minor inconsistencies and typos.
From-SVN: r213469
Diffstat (limited to 'gcc/ada/s-pack12.adb')
| -rw-r--r-- | gcc/ada/s-pack12.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/s-pack12.adb b/gcc/ada/s-pack12.adb index e12cd66ce32..d43cca14a24 100644 --- a/gcc/ada/s-pack12.adb +++ b/gcc/ada/s-pack12.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -128,7 +128,6 @@ package body System.Pack_12 is procedure Set_12 (Arr : System.Address; N : Natural; E : Bits_12) is C : constant Cluster_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8)); - begin case N07 (Uns (N) mod 8) is when 0 => C.E0 := E; @@ -148,7 +147,6 @@ package body System.Pack_12 is procedure SetU_12 (Arr : System.Address; N : Natural; E : Bits_12) is C : constant ClusterU_Ref := To_Ref (Arr + Bits * Ofs (Uns (N) / 8)); - begin case N07 (Uns (N) mod 8) is when 0 => C.E0 := E; |