diff options
| author | Jeffrey A Law <law@cygnus.com> | 1997-08-12 17:13:25 +0000 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1997-08-12 11:13:25 -0600 |
| commit | 7bb6fbd1c6cab78c8b626caac74a387f8e1dc5b5 (patch) | |
| tree | 6af686cdfe6c11c549f23151dfd216cd90b4573f /gcc/real.h | |
| parent | 8f87a56384ff536fb794390a541437b4261b2fd2 (diff) | |
| download | gcc-7bb6fbd1c6cab78c8b626caac74a387f8e1dc5b5.tar.gz | |
version.c: Bump version to "gcc-3.0.0 970802 experimental".
* version.c: Bump version to "gcc-3.0.0 970802 experimental".
* gcc.info*: Rebuilt.
* COPYING.g77, README.g77: New files.
* real.c (ereal_unto_float, ereal_unto_double): New functions.
* real.h (ereal_unto_float, ereal_unto_double): Declare them.
(REAL_VALUE_UNTO_TARGET_DOUBLE, REAL_VALUE_UNTO_TARGET_SINGLE): Define.
Get g77 to work with gcc3.
From-SVN: r14776
Diffstat (limited to 'gcc/real.h')
| -rw-r--r-- | gcc/real.h | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/real.h b/gcc/real.h index c57ccc1cff3..5d4b87fe6b0 100644 --- a/gcc/real.h +++ b/gcc/real.h @@ -153,6 +153,8 @@ extern long etarsingle PROTO((REAL_VALUE_TYPE)); extern void ereal_to_decimal PROTO((REAL_VALUE_TYPE, char *)); extern int ereal_cmp PROTO((REAL_VALUE_TYPE, REAL_VALUE_TYPE)); extern int ereal_isneg PROTO((REAL_VALUE_TYPE)); +extern REAL_VALUE_TYPE ereal_unto_float PROTO((long)); +extern REAL_VALUE_TYPE ereal_unto_double PROTO((long *)); extern REAL_VALUE_TYPE ereal_from_float PROTO((HOST_WIDE_INT)); extern REAL_VALUE_TYPE ereal_from_double PROTO((HOST_WIDE_INT *)); @@ -200,6 +202,12 @@ extern REAL_VALUE_TYPE real_value_truncate (); /* IN is a REAL_VALUE_TYPE. OUT is a long. */ #define REAL_VALUE_TO_TARGET_SINGLE(IN, OUT) ((OUT) = etarsingle ((IN))) +/* Inverse of REAL_VALUE_TO_TARGET_DOUBLE. */ +#define REAL_VALUE_UNTO_TARGET_DOUBLE(d) (ereal_unto_double (d)) + +/* Inverse of REAL_VALUE_TO_TARGET_SINGLE. */ +#define REAL_VALUE_UNTO_TARGET_SINGLE(f) (ereal_unto_float (f)) + /* d is an array of HOST_WIDE_INT that holds a double precision value in the target computer's floating point format. */ #define REAL_VALUE_FROM_TARGET_DOUBLE(d) (ereal_from_double (d)) |