diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-03-30 11:15:22 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-03-30 11:15:22 +0200 |
| commit | 50421527ecf401ca7668048d0fe599bd043f776f (patch) | |
| tree | bd729134ad4d53bfed086f84536a425ad6a64e6c /gcc/ada/exp_pakd.adb | |
| parent | 2fa3b955566afe73ae85644fd4287ca1de6ea3f6 (diff) | |
| download | gcc-50421527ecf401ca7668048d0fe599bd043f776f.zip gcc-50421527ecf401ca7668048d0fe599bd043f776f.tar.gz gcc-50421527ecf401ca7668048d0fe599bd043f776f.tar.bz2 | |
[multiple changes]
2012-03-30 Vincent Celier <celier@adacore.com>
* prj.ads: New Dependency_Kind: ALI_Closure.
2012-03-30 Thomas Quinot <quinot@adacore.com>
* exp_pakd.adb: Minor reformatting.
From-SVN: r185998
Diffstat (limited to 'gcc/ada/exp_pakd.adb')
| -rw-r--r-- | gcc/ada/exp_pakd.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index 8a95ec5..756a3d1 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2012, 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- -- @@ -509,7 +509,7 @@ package body Exp_Pakd is Shift : out Node_Id); -- This procedure performs common processing on the N_Indexed_Component -- parameter given as N, whose prefix is a reference to a packed array. - -- This is used for the get and set when the component size is 1,2,4 + -- This is used for the get and set when the component size is 1, 2, 4, -- or for other component sizes when the packed array type is a modular -- type (i.e. the cases that are handled with inline code). -- @@ -1472,10 +1472,10 @@ package body Exp_Pakd is end if; end if; - -- Now create copies removing side effects. Note that in some - -- complex cases, this may cause the fact that we have already - -- set a packed array type on Obj to get lost. So we save the - -- type of Obj, and make sure it is reset properly. + -- Now create copies removing side effects. Note that in some complex + -- cases, this may cause the fact that we have already set a packed + -- array type on Obj to get lost. So we save the type of Obj, and + -- make sure it is reset properly. declare T : constant Entity_Id := Etype (Obj); |