From c9378dc2fe8e3097fee0100f2b07c2a1195dc8a0 Mon Sep 17 00:00:00 2001
From: sceptillion <33798691+sceptillion@users.noreply.github.com>
Date: Wed, 20 Dec 2017 21:32:43 -0800
Subject: fix more 64-bit float bugs

---
 gcc/real.h | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'gcc/real.h')

diff --git a/gcc/real.h b/gcc/real.h
index b8f7188..a39cea1 100755
--- a/gcc/real.h
+++ b/gcc/real.h
@@ -351,10 +351,13 @@ union tree_node;
 REAL_VALUE_TYPE real_value_from_int_cst	(union tree_node *,
 						union tree_node *);
 
-#define REAL_VALUE_FROM_CONST_DOUBLE(to, from)		\
-do { union real_extract u;				\
-     memcpy((char *)&u, (char *)&CONST_DOUBLE_LOW(from), sizeof u); \
-     to = u.d; } while (0)
+#define REAL_VALUE_FROM_CONST_DOUBLE(to, from) \
+do { \
+    union real_extract u; \
+    for (int i = 0; i < sizeof (REAL_VALUE_TYPE) / sizeof (HOST_WIDE_INT); i++) \
+        u.i[i] = XWINT((from), 2 + i); \
+    to = u.d; \
+} while (0)
 
 /* Return a CONST_DOUBLE with value R and mode M.  */
 
-- 
cgit v1.2.3