diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:39:54 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:39:54 +0000 |
commit | 0a496e92a8b3b846b0d3626e287331f45f749518 (patch) | |
tree | 5c6d9d3537674937bb0adee6d92aa7e9303ea3ac /gcc/ada/exp_pakd.ads | |
parent | 647b27635066c0c330a6112b84d150b9421d436b (diff) | |
download | gcc-0a496e92a8b3b846b0d3626e287331f45f749518.tar.gz |
2006-02-13 Thomas Quinot <quinot@adacore.com>
* exp_pakd.ads: Fix typos in comments.
* exp_pakd.adb (Convert_To_PAT_Type): For the case of a bit packed
array reference that is an explicit dereference, mark the converted
(packed) array reference as analyzed to prevent a forthcoming
reanalysis from resetting its type to the original (non-packed) array
type.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111068 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_pakd.ads')
-rw-r--r-- | gcc/ada/exp_pakd.ads | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/exp_pakd.ads b/gcc/ada/exp_pakd.ads index a57b0b38b1a..bd004599944 100644 --- a/gcc/ada/exp_pakd.ads +++ b/gcc/ada/exp_pakd.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2005, 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- -- @@ -237,8 +237,8 @@ package Exp_Pakd is procedure Expand_Packed_Element_Reference (N : Node_Id); -- N is an N_Indexed_Component node whose prefix is a packed array. In -- the bit packed case, this routine can only be used for the expression - -- evaluation case not the assignment case, since the result is not a - -- variable. See Expand_Bit_Packed_Element_Set for how he assignment case + -- evaluation case, not the assignment case, since the result is not a + -- variable. See Expand_Bit_Packed_Element_Set for how the assignment case -- is handled in the bit packed case. For the enumeration case, the result -- of this call is always a variable, so the call can be used for both the -- expression evaluation and assignment cases. |