From b9314a7e25a44a3f05cb90e9938f47909db2b54f Mon Sep 17 00:00:00 2001 From: Roman Lechtchinsky Date: Fri, 24 May 2002 23:04:18 +0000 Subject: [PATCH] unicosmk.h (REAL_VALUE_TO_TARGET_SINGLE, [...]): Define for native builds. * config/alpha/unicosmk.h (REAL_VALUE_TO_TARGET_SINGLE, REAL_VALUE_TO_TARGET_DOUBLE): Define for native builds. From-SVN: r53859 --- gcc/ChangeLog | 5 +++++ gcc/config/alpha/unicosmk.h | 24 ++++++++++++++++++++++++ 2 files changed, 29 insertions(+) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index d66135c09a28..a13a72a00523 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +2002-05-24 Roman Lechtchinsky + + * config/alpha/unicosmk.h (REAL_VALUE_TO_TARGET_SINGLE, + REAL_VALUE_TO_TARGET_DOUBLE): Define for native builds. + 2002-05-24 Jakub Jelinek PR other/6782 diff --git a/gcc/config/alpha/unicosmk.h b/gcc/config/alpha/unicosmk.h index 65ab319d5024..6dbe1a383bbd 100644 --- a/gcc/config/alpha/unicosmk.h +++ b/gcc/config/alpha/unicosmk.h @@ -574,6 +574,30 @@ ssib_section () \ #ifndef REAL_ARITHMETIC #define REAL_VALUE_ATOF(x,s) atof(x) #define REAL_VALUE_HTOF(x,s) atof(x) + +#define REAL_VALUE_TO_TARGET_SINGLE(IN, OUT) \ +do { \ + union { \ + float f; \ + HOST_WIDE_INT l; \ + } u; \ + \ + u.f = (IN); \ + (OUT) = (u.l >> 32) & 0xFFFFFFFF; \ +} while (0) + +#define REAL_VALUE_TO_TARGET_DOUBLE(IN, OUT) \ +do { \ + union { \ + REAL_VALUE_TYPE f; \ + HOST_WIDE_INT l; \ + } u; \ + \ + u.f = (IN); \ + (OUT)[0] = (u.l >> 32) & 0xFFFFFFFF; \ + (OUT)[1] = (u.l & 0xFFFFFFFF); \ +} while (0) + #endif #undef NM_FLAGS -- 2.47.2