diff options
| author | Richard Kenner <kenner@gcc.gnu.org> | 1994-03-13 08:34:34 -0500 |
|---|---|---|
| committer | Richard Kenner <kenner@gcc.gnu.org> | 1994-03-13 08:34:34 -0500 |
| commit | 2e15b172de724f57679d6cf2acba6b366bc4c7dd (patch) | |
| tree | 05c3b0be279a8809c40e15d47e4422915783d3f9 /gcc/config/tahoe | |
| parent | c05f751c24182e733cb986b7660ec1223be52428 (diff) | |
| download | gcc-2e15b172de724f57679d6cf2acba6b366bc4c7dd.tar.gz | |
Add OVERFLOW operand to CHECK_FLOAT_VALUE.
From-SVN: r6770
Diffstat (limited to 'gcc/config/tahoe')
| -rw-r--r-- | gcc/config/tahoe/tahoe.h | 30 |
1 files changed, 14 insertions, 16 deletions
diff --git a/gcc/config/tahoe/tahoe.h b/gcc/config/tahoe/tahoe.h index 0e1af7dd457..4e42c220edd 100644 --- a/gcc/config/tahoe/tahoe.h +++ b/gcc/config/tahoe/tahoe.h @@ -1,5 +1,5 @@ /* Definitions of target machine for GNU compiler. Tahoe version. - Copyright (C) 1989, 1993 Free Software Foundation, Inc. + Copyright (C) 1989, 1993, 1994 Free Software Foundation, Inc. This file is part of GNU CC. @@ -135,21 +135,19 @@ extern int target_flags; /* this section is borrowed from the vax version since the */ /* formats are the same in both of the architectures */ -#define CHECK_FLOAT_VALUE(mode, d) \ - if ((mode) == SFmode) \ - { \ - if ((d) > 1.7014117331926443e+38) \ - { error ("magnitude of constant too large for `float'"); \ - (d) = 1.7014117331926443e+38; } \ - else if ((d) < -1.7014117331926443e+38) \ - { error ("magnitude of constant too large for `float'"); \ - (d) = -1.7014117331926443e+38; } \ - else if (((d) > 0) && ((d) < 2.9387358770557188e-39)) \ - { warning ("`float' constant truncated to zero"); \ - (d) = 0.0; } \ - else if (((d) < 0) && ((d) > -2.9387358770557188e-39)) \ - { warning ("`float' constant truncated to zero"); \ - (d) = 0.0; } \ +#define CHECK_FLOAT_VALUE(MODE, D, OVEFLOW) \ + if (OVERFLOW) \ + (D) = 1.7014117331926443e+38; \ + else if ((MODE) == SFmode) \ + { \ + if ((D) > 1.7014117331926443e+38) \ + (OVERFLOW) = 1, (D) = 1.7014117331926443e+38; \ + else if ((D) < -1.7014117331926443e+38) \ + (OVERFLOW) = 1, (D) = -1.7014117331926443e+38; \ + else if (((D) > 0) && ((D) < 2.9387358770557188e-39)) \ + (OVERFLOW) = 1, (D) = 0.0; \ + else if (((D) < 0) && ((D) > -2.9387358770557188e-39)) \ + (OVERFLOW) = 1, (D) = 0.0; \ } |