diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2003-11-18 11:00:43 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2003-11-18 11:00:43 +0100 |
| commit | 0d77ab84bb83effb9ac3e41635747a658a3332f6 (patch) | |
| tree | ca0313b9fef667182504854ffab71acadd1412e6 /gcc/ada/decl.c | |
| parent | beb0c2e0ca4c1abdc0124c1e64d1bf841b0122af (diff) | |
| download | gcc-0d77ab84bb83effb9ac3e41635747a658a3332f6.zip gcc-0d77ab84bb83effb9ac3e41635747a658a3332f6.tar.gz gcc-0d77ab84bb83effb9ac3e41635747a658a3332f6.tar.bz2 | |
[multiple changes]
2003-11-18 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
* ada-tree.def: (ALLOCATE_EXPR): Class is "2", not "s".
* decl.c (gnat_to_gnu_entity, case E_Floating_Point_Subtype): Set
TYPE_PRECISION directly from esize.
2003-11-18 Thomas Quinot <quinot@act-europe.fr>
* cstreams.c:
Use realpath(3) on FreeBSD. Fix typo in comment while we are at it.
* init.c: Initialization routines for FreeBSD
* link.c: Link info for FreeBSD
* sysdep.c: Add the case of FreeBSD
From-SVN: r73700
Diffstat (limited to 'gcc/ada/decl.c')
| -rw-r--r-- | gcc/ada/decl.c | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index 058b61e..85bd27b 100644 --- a/gcc/ada/decl.c +++ b/gcc/ada/decl.c @@ -1357,8 +1357,6 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) } { - enum machine_mode mode; - if (definition == 0 && Present (Ancestor_Subtype (gnat_entity)) && ! In_Extended_Main_Code_Unit (Ancestor_Subtype (gnat_entity)) @@ -1367,15 +1365,9 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) gnat_to_gnu_entity (Ancestor_Subtype (gnat_entity), gnu_expr, definition); - for (mode = GET_CLASS_NARROWEST_MODE (MODE_FLOAT); - (GET_MODE_WIDER_MODE (mode) != VOIDmode - && GET_MODE_BITSIZE (GET_MODE_WIDER_MODE (mode)) <= esize); - mode = GET_MODE_WIDER_MODE (mode)) - ; - gnu_type = make_node (REAL_TYPE); TREE_TYPE (gnu_type) = get_unpadded_type (Etype (gnat_entity)); - TYPE_PRECISION (gnu_type) = GET_MODE_BITSIZE (mode); + TYPE_PRECISION (gnu_type) = fp_size_to_prec (esize); TYPE_MIN_VALUE (gnu_type) = convert (TREE_TYPE (gnu_type), |