diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2003-10-27 15:27:17 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2003-10-27 15:27:17 +0100 |
| commit | ecad994dd1912e5c414b24280cdc8c6c8600e99f (patch) | |
| tree | 5db4ec8273f035a29e6c9504108dd9262b217b21 /gcc/ada/exp_ch3.adb | |
| parent | e1ffc70a2d470cdeb423a572621cbe1d0e2bf64c (diff) | |
| download | gcc-ecad994dd1912e5c414b24280cdc8c6c8600e99f.zip gcc-ecad994dd1912e5c414b24280cdc8c6c8600e99f.tar.gz gcc-ecad994dd1912e5c414b24280cdc8c6c8600e99f.tar.bz2 | |
re PR ada/5909 (Ada has no test suite.)
* Makefile.generic: Add missing substitution on object_deps handling.
PR ada/5909:
* Make-lang.in (check-ada): Enable ACATS test suite.
* exp_ch3.adb:
(Freeze_Array_Type): We do not need an initialization routine for types
derived from String or Wide_String. They should be treated the same
as String and Wide_String themselves. This caused problems with the
use of Initialize_Scalars.
* exp_ch5.adb:
(Expand_Assign_Record): Do component-wise assignment of non-byte aligned
composites. This allows use of component clauses that are not byte
aligned.
* sem_prag.adb:
(Analyze_Pragma, case Pack): Generate warning and ignore pack if there
is an attempt to pack an array of atomic objects.
* make.adb, prj-env.adb, prj-env.ads: Minor reformatting
* g-dirope.adb:
(Basename): Check for drive letters in a pathname only on DOS based OS.
* make.adb:
(Gnatmake): When unable to change dir to the object dir, display the
content of the parent dir of the obj dir, to try to understand why this
happens.
* Make-lang.in: Makefile automatically updated
* sem_ch12.adb:
(Inline_Instance_Body): Indicate that the save/restore of use_clauses
should not be done in Save/Restore_Scope_Stack, because it is performed
locally.
* sem_ch8.adb:
(Save_Scope_Stack, Restore_Scope_Stack): Add parameter to indicate
whether use clauses should be removed/restored.
* sem_ch8.ads:
(Save_Scope_Stack, Restore_Scope_Stack): Add parameter to indicate
whether use clauses should be removed/restored.
From-SVN: r72983
Diffstat (limited to 'gcc/ada/exp_ch3.adb')
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index a6d058d..3fd7225 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -3428,8 +3428,8 @@ package body Exp_Ch3 is -- initialize scalars mode, and these types are treated specially -- and do not need initialization procedures. - elsif Base = Standard_String - or else Base = Standard_Wide_String + elsif Root_Type (Base) = Standard_String + or else Root_Type (Base) = Standard_Wide_String then null; |