diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-11-15 13:56:51 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-11-15 13:56:51 +0000 |
| commit | 1550b445ba9e02c6e698702506bd2fa2fa94443c (patch) | |
| tree | 12763bf49f192f9375a0f912c3516ed9c9911fdb /gcc/ada/s-vaflop-vms-alpha.adb | |
| parent | e34ac50e6a11208aa4bc6c70acb43f2bd098ab62 (diff) | |
| download | gcc-1550b445ba9e02c6e698702506bd2fa2fa94443c.tar.gz | |
2005-11-14 Robert Dewar <dewar@adacore.com>
Hristian Kirtchev <kirtchev@adacore.com>
* sem_attr.adb: Implement Machine_Rounding attribute
(Analyze_Access_Attribute): The access attribute may appear within an
aggregate that has been expanded into a loop.
(Check_Task_Prefix): Add semantic check for attribute 'Callable and
'Terminated whenever the prefix is of a task interface class-wide type.
(Analyze_Attribute): Add semantic check for attribute 'Identity whenever
the prefix is of a task interface class-wide type.
* s-vaflop-vms-alpha.adb: Valid_D, Valid_F, Valid_G: Make Val constant
to avoid warnings.
* s-fatgen.ads, s-fatgen.adb (Machine_Rounding): New function
Remove pragma Inline for [Unaligned_]Valid.
Add comments that Valid routines do not work for Vax_Float
* exp_attr.adb: Implement Machine_Rounding attribute
* snames.h: Add entry for Machine_Rounding attribute
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@106970 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-vaflop-vms-alpha.adb')
| -rw-r--r-- | gcc/ada/s-vaflop-vms-alpha.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/s-vaflop-vms-alpha.adb b/gcc/ada/s-vaflop-vms-alpha.adb index 45a39bba08b..5ab772d4477 100644 --- a/gcc/ada/s-vaflop-vms-alpha.adb +++ b/gcc/ada/s-vaflop-vms-alpha.adb @@ -626,7 +626,7 @@ package body System.Vax_Float_Operations is -- accurate, but is good enough in practice. function Valid_D (Arg : D) return Boolean is - Val : T := G_To_T (D_To_G (Arg)); + Val : constant T := G_To_T (D_To_G (Arg)); begin return Val'Valid; end Valid_D; @@ -639,7 +639,7 @@ package body System.Vax_Float_Operations is -- accurate, but is good enough in practice. function Valid_F (Arg : F) return Boolean is - Val : S := F_To_S (Arg); + Val : constant S := F_To_S (Arg); begin return Val'Valid; end Valid_F; @@ -652,7 +652,7 @@ package body System.Vax_Float_Operations is -- accurate, but is good enough in practice. function Valid_G (Arg : G) return Boolean is - Val : T := G_To_T (Arg); + Val : constant T := G_To_T (Arg); begin return Val'Valid; end Valid_G; |