diff options
| author | rms <rms@138bc75d-0d04-0410-961f-82ee72b054a4> | 1993-06-13 00:25:05 +0000 |
|---|---|---|
| committer | rms <rms@138bc75d-0d04-0410-961f-82ee72b054a4> | 1993-06-13 00:25:05 +0000 |
| commit | ed6610862ed980b617a708da650737a53ede3953 (patch) | |
| tree | 07598d2a46805be7b1540ee8c59348d91cc112f2 /gcc/real.h | |
| parent | 78b64e7ae52204de7d4277d5f20071d80976d8c3 (diff) | |
| download | gcc-ed6610862ed980b617a708da650737a53ede3953.tar.gz | |
(REAL_VALUE_FROM_TARGET_SINGLE): New macro.
(REAL_VALUE_FROM_TARGET_DOUBLE): Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@4671 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/real.h')
| -rw-r--r-- | gcc/real.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/real.h b/gcc/real.h index b9466194ed2..4ac1822899e 100644 --- a/gcc/real.h +++ b/gcc/real.h @@ -95,6 +95,7 @@ int ereal_cmp (), eroundi (), ereal_isneg (); unsigned int eroundui (); REAL_VALUE_TYPE etrunci (), etruncui (), ereal_ldexp (), ereal_atof (); REAL_VALUE_TYPE ereal_negate (), ereal_truncate (); +REAL_VALUE_TYPE ereal_from_float (), ereal_from_double (); #define REAL_VALUES_EQUAL(x, y) (ereal_cmp ((x), (y)) == 0) /* true if x < y : */ @@ -124,9 +125,12 @@ extern REAL_VALUE_TYPE real_value_truncate (); /* IN is a REAL_VALUE_TYPE. OUT is an array of longs. */ #define REAL_VALUE_TO_TARGET_LONG_DOUBLE(IN, OUT) (etarldouble ((IN), (OUT))) #define REAL_VALUE_TO_TARGET_DOUBLE(IN, OUT) (etardouble ((IN), (OUT))) - +/* d is an array of longs. */ +#define REAL_VALUE_FROM_TARGET_DOUBLE(d) (ereal_from_double (d)) /* IN is a REAL_VALUE_TYPE. OUT is a long. */ #define REAL_VALUE_TO_TARGET_SINGLE(IN, OUT) ((OUT) = etarsingle ((IN))) +/* f is a long. */ +#define REAL_VALUE_FROM_TARGET_SINGLE(f) (ereal_from_float (f)) /* Conversions to decimal ASCII string. */ #define REAL_VALUE_TO_DECIMAL(r, fmt, s) (ereal_to_decimal (r, s)) |