diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-01-21 10:35:18 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-01-21 10:35:18 +0000 |
| commit | 5dad4396b3a90fa1f39465301b0842378fa8083e (patch) | |
| tree | 3f71d31717704c49c8e652580055d3df47d772f6 /gcc/ada/exp_pakd.adb | |
| parent | b41346d45ffbca563d6a8102f4a12556384cf03d (diff) | |
| download | gcc-5dad4396b3a90fa1f39465301b0842378fa8083e.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@76271 138bc75d-0d04-0410-961f-82ee72b054a4
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; |