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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index d66135c09a280ba828375afc807c2eb26ee8c0e2..a13a72a00523c82f556261a493eb6bb0693387a9 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-24  Roman Lechtchinsky  <rl@cs.tu-berlin.de>
+
+        * config/alpha/unicosmk.h (REAL_VALUE_TO_TARGET_SINGLE,
+        REAL_VALUE_TO_TARGET_DOUBLE): Define for native builds.
+
 2002-05-24  Jakub Jelinek  <jakub@redhat.com>
 
        PR other/6782

diff --git a/gcc/config/alpha/unicosmk.h b/gcc/config/alpha/unicosmk.h
index 65ab319d50244c64e2c6225b3a16a729ba6bda82..6dbe1a383bbd115a887ab7f6fde08e6d018f5b34 100644 (file)
--- 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