diff options
| author | zack <zack@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-09-29 22:14:01 +0000 |
|---|---|---|
| committer | zack <zack@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-09-29 22:14:01 +0000 |
| commit | 48d79b3b7e4ae6fa4a169fae9d0e41ddb2e71ede (patch) | |
| tree | 6cd7dd5b5247402ad28f6bd94c373ce5887005dd | |
| parent | 4e2b856595852a19b3a06a6d129307321a088678 (diff) | |
| download | ppe42-gcc-48d79b3b7e4ae6fa4a169fae9d0e41ddb2e71ede.tar.gz ppe42-gcc-48d79b3b7e4ae6fa4a169fae9d0e41ddb2e71ede.zip | |
ada:
* trans.c (gigi): Use REAL_ARITHMETIC, not REAL_VALUE_ATOF, to
initialize dconstp5 and dconstmp5.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@71921 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/trans.c | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 46e76fd3057..f1854785315 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2003-09-29 Zack Weinberg <zack@codesourcery.com> + + * trans.c (gigi): Use REAL_ARITHMETIC, not REAL_VALUE_ATOF, to + initialize dconstp5 and dconstmp5. + 2003-09-28 Richard Henderson <rth@redhat.com> * trans.c (tree_transform): Update call to expand_asm_operands. diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index d666b2f10a6..2d0e9ffd54f 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -196,8 +196,8 @@ gigi (gnat_root, max_gnat_node, number_name, nodes_ptr, next_node_ptr, gnu_except_ptr_stack = tree_cons (NULL_TREE, NULL_TREE, NULL_TREE); - dconstp5 = REAL_VALUE_ATOF ("0.5", DFmode); - dconstmp5 = REAL_VALUE_ATOF ("-0.5", DFmode); + REAL_ARITHMETIC (dconstp5, RDIV_EXPR, dconst1, dconst2); + REAL_ARITHMETIC (dconstmp5, RDIV_EXPR, dconstm1, dconst2); gnu_standard_long_long_float = gnat_to_gnu_entity (Base_Type (standard_long_long_float), NULL_TREE, 0); |
