diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-16 08:33:28 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-16 08:33:28 +0000 |
| commit | 50fa76135f8430273372a03baa627cbdf607b241 (patch) | |
| tree | baccf4205db20ef7eb674c967f68d5e071899d87 /gcc/ada/s-asthan-vms-alpha.adb | |
| parent | 81ba69b46a21aa139ca93ff08fd887949c010e15 (diff) | |
| download | gcc-50fa76135f8430273372a03baa627cbdf607b241.tar.gz | |
2009-04-16 Olivier Hainque <hainque@adacore.com>
* gnat_ugn.texi (gnatmem description): Make it explicit that
gnatmem is designed to work in association with static runtime
library only.
2009-04-16 Thomas Quinot <quinot@adacore.com>
* sem_type.adb: Minor reformatting
2009-04-16 Hristian Kirtchev <kirtchev@adacore.com>
* s-osprim-darwin.adb, s-osprim-posix.adb (Clock): Add comment
concerning return codes of gettimeofday and return value check.
2009-04-16 Ed Falis <falis@adacore.com>
* s-vxwext-kernel.ads (Int_Lock, Int_Unlock): set to convention C so
body can be renaming of imported routines.
2009-04-16 Vasiliy Fofanov <fofanov@adacore.com>
* s-asthan-vms-alpha.adb: Disable warnings on alignment in a more
targeted fashion.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146149 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-asthan-vms-alpha.adb')
| -rw-r--r-- | gcc/ada/s-asthan-vms-alpha.adb | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gcc/ada/s-asthan-vms-alpha.adb b/gcc/ada/s-asthan-vms-alpha.adb index 70f3cd8c979..2e04081f410 100644 --- a/gcc/ada/s-asthan-vms-alpha.adb +++ b/gcc/ada/s-asthan-vms-alpha.adb @@ -133,9 +133,6 @@ package body System.AST_Handling is type Descriptor_Type is new SSE.Storage_Array (1 .. 48); for Descriptor_Type'Alignment use Standard'Maximum_Alignment; - pragma Warnings (Off, Descriptor_Type); - -- Suppress harmless warnings about alignment. - -- Should explain why this warning is harmless ??? type Descriptor_Ref is access all Descriptor_Type; @@ -459,12 +456,18 @@ package body System.AST_Handling is Process_AST_Ptr : constant AST_Handler := Process_AST'Access; -- Reference to standard procedure descriptor for Process_AST + pragma Warnings (Off, "*alignment*"); + -- Suppress harmless warnings about alignment. + -- Should explain why this warning is harmless ??? + function To_Descriptor_Ref is new Ada.Unchecked_Conversion (AST_Handler, Descriptor_Ref); Original_Descriptor_Ref : constant Descriptor_Ref := To_Descriptor_Ref (Process_AST_Ptr); + pragma Warnings (On, "*alignment*"); + begin if ATID.Is_Terminated (Taskid) then raise Program_Error; |