diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-10-27 14:27:17 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-10-27 14:27:17 +0000 |
| commit | b3fb26fdfc0741364ca0f937e11b108825196ba9 (patch) | |
| tree | 5db4ec8273f035a29e6c9504108dd9262b217b21 /gcc/ada/sem_prag.adb | |
| parent | af2767316fb2f05d87f2b8bb6917b240ef1976fc (diff) | |
| download | gcc-b3fb26fdfc0741364ca0f937e11b108825196ba9.tar.gz | |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@72983 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_prag.adb')
| -rw-r--r-- | gcc/ada/sem_prag.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 57712b06d9c..d5d82b2e33d 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -7477,7 +7477,9 @@ package body Sem_Prag is Error_Pragma ("pragma% ignored, cannot pack aliased components?"); - elsif Has_Atomic_Components (Typ) then + elsif Has_Atomic_Components (Typ) + or else Is_Atomic (Component_Type (Typ)) + then Error_Pragma ("?pragma% ignored, cannot pack atomic components"); |