diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-01-21 11:35:18 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-01-21 11:35:18 +0100 |
| commit | adc04486ee5d4b2f20dfdba93f8c4fd52e1ef9b9 (patch) | |
| tree | 3f71d31717704c49c8e652580055d3df47d772f6 /gcc/ada/exp_pakd.adb | |
| parent | 1ef82ef2e4438959b1385c20bd47a1febed98221 (diff) | |
| download | gcc-adc04486ee5d4b2f20dfdba93f8c4fd52e1ef9b9.tar.gz | |
[multiple changes]
2004-01-21 Javier Miranda <miranda@gnat.com>
* exp_aggr.adb (Build_Record_Aggr_Code): Do not build the master
entity if already built in the current scope.
* exp_ch9.adb (Build_Master_Entity): Do not set the has_master_entity
reminder in internal scopes. Required for nested limited aggregates.
2004-01-21 Doug Rupp <rupp@gnat.com>
* Makefile.in (hyphen): New variable, default value '-'. Set to '_' on
VMS. Replace all occurences of libgnat- and libgnarl- with
libgnat$(hyphen) and libgnarl$(hyphen).
Fixed shared library build problem on VMS.
2004-01-21 Robert Dewar <dewar@gnat.com>
* mlib-prj.adb: Minor reformatting
2004-01-21 Thomas Quinot <quinot@act-europe.fr>
* prj-tree.adb, 7staprop.adb, vms_conv.adb, xr_tabls.adb: Add missing
'constant' keywords for declaration of pointers that are not modified.
* exp_pakd.adb: Fix English in comment.
2004-01-21 Ed Schonberg <schonberg@gnat.com>
PR ada/10889
* sem_ch3.adb (Analyze_Subtype_Declaration): For an array subtype,
copy all attributes of the parent, including the foreign language
convention.
2004-01-21 Sergey Rybin <rybin@act-europe.fr>
PR ada/10565
* sem_ch9.adb (Analyze_Delay_Alternative): Add expression type check
for 'delay until' statement.
From-SVN: r76271
Diffstat (limited to 'gcc/ada/exp_pakd.adb')
| -rw-r--r-- | gcc/ada/exp_pakd.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index 558e251d5a3..36b4b36b97c 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -1061,11 +1061,11 @@ package body Exp_Pakd is Set_Parent (Len_Expr, Typ); Analyze_Per_Use_Expression (Len_Expr, Standard_Integer); - -- Use a modular type if possible. We can do this if we are we - -- have static bounds, and the length is small enough, and the - -- length is not zero. We exclude the zero length case because the - -- size of things is always at least one, and the zero length object - -- would have an anomous size. + -- Use a modular type if possible. We can do this if we have + -- static bounds, and the length is small enough, and the length + -- is not zero. We exclude the zero length case because the size + -- of things is always at least one, and the zero length object + -- would have an anomalous size. if Compile_Time_Known_Value (Len_Expr) then Len_Bits := Expr_Value (Len_Expr) * Csize; |