diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-09-05 07:53:10 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-09-05 07:53:10 +0000 |
| commit | 6e62b6c3b01ad9adc92f4bbed7e97677b1fbcb07 (patch) | |
| tree | 3618aae5514f82a3f4fba73b73fe7fdd4c483062 /gcc/ada/exp_vfpt.ads | |
| parent | ad018b0cbec171fc39a144fb42471d2d99c64ffb (diff) | |
| download | gcc-6e62b6c3b01ad9adc92f4bbed7e97677b1fbcb07.tar.gz | |
2005-09-01 Robert Dewar <dewar@adacore.com>
Doug Rupp <rupp@adacore.com>
* exp_attr.adb: Handle vax fpt for 'Valid attribute
* exp_vfpt.ads, exp_vfpt.adb: (Expand_Vax_Valid): New procedure
* s-vaflop-vms-alpha.adb, s-vaflop.ads, s-vaflop.adb
(Valid_D, Valid_F, Valid_G): New functions
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103860 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_vfpt.ads')
| -rw-r--r-- | gcc/ada/exp_vfpt.ads | 29 |
1 files changed, 17 insertions, 12 deletions
diff --git a/gcc/ada/exp_vfpt.ads b/gcc/ada/exp_vfpt.ads index f431e1d18a6..fb33b795db9 100644 --- a/gcc/ada/exp_vfpt.ads +++ b/gcc/ada/exp_vfpt.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1997 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2005 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -26,7 +26,7 @@ -- This package contains specialized routines for handling the expansion -- of arithmetic and conversion operations involving Vax format floating- --- point formats as used on the Vax and the Alpha. +-- point formats as used on the Vax and the Alpha and the ia64. with Types; use Types; @@ -34,21 +34,26 @@ package Exp_VFpt is procedure Expand_Vax_Arith (N : Node_Id); -- The node N is an arithmetic node (N_Op_Abs, N_Op_Add, N_Op_Sub, - -- N_Op_Div, N_Op_Mul, N_Op_Minus where the operands are in Vax - -- float format. This procedure expands the necessary call. + -- N_Op_Div, N_Op_Mul, N_Op_Minus where the operands are in Vax float + -- format. This procedure expands the necessary call. procedure Expand_Vax_Comparison (N : Node_Id); - -- The node N is an arithmetic comparison node where the types to - -- be compared are in Vax float format. This procedure expands the - -- necessary call. + -- The node N is an arithmetic comparison node where the types to be + -- compared are in Vax float format. This procedure expands the necessary + -- call. procedure Expand_Vax_Conversion (N : Node_Id); - -- The node N is a type conversion node where either the source or - -- the target type, or both, are Vax floating-point type. + -- The node N is a type conversion node where either the source or the + -- target type, or both, are Vax floating-point type. procedure Expand_Vax_Real_Literal (N : Node_Id); - -- The node N is a real literal node where the type is a Vax - -- floating-point type. This procedure rewrites the node to eliminate - -- the occurrence of such constants. + -- The node N is a real literal node where the type is a Vax floating-point + -- type. This procedure rewrites the node to eliminate the occurrence of + -- such constants. + + procedure Expand_Vax_Valid (N : Node_Id); + -- The node N is an attribute reference node for the Valid attribute where + -- the prefix is of a Vax floating-point type. This procedure expands the + -- necessary call for the validity test. end Exp_VFpt; |