From 7bb6fbd1c6cab78c8b626caac74a387f8e1dc5b5 Mon Sep 17 00:00:00 2001 From: Jeffrey A Law Date: Tue, 12 Aug 1997 17:13:25 +0000 Subject: 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 --- gcc/real.h | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'gcc/real.h') 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)) -- cgit v1.2.1