From a771aab0fe0e7d65d9152657f8ec342d07820ed2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
 <zmoelnig@users.sourceforge.net>
Date: Sun, 19 Feb 2012 20:39:17 +0000
Subject: use tabfudge rather than pointer-casts

fixes crash on amd64

svn path=/trunk/externals/iemlib/; revision=16001
---
 iemlib1/src/iem_sqrt4~.c | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/iemlib1/src/iem_sqrt4~.c b/iemlib1/src/iem_sqrt4~.c
index 50d837a..f721b20 100644
--- a/iemlib1/src/iem_sqrt4~.c
+++ b/iemlib1/src/iem_sqrt4~.c
@@ -12,8 +12,8 @@ iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2006
 
 /* ------------------------ iem_sqrt4~ ----------------------------- */
 
-t_float *iem_sqrt4_tilde_exptab=(t_float *)0L;
-t_float *iem_sqrt4_tilde_mantissatab=(t_float *)0L;
+static t_float *iem_sqrt4_tilde_exptab=(t_float *)0L;
+static t_float *iem_sqrt4_tilde_mantissatab=(t_float *)0L;
 
 static t_class *iem_sqrt4_tilde_class;
 
@@ -66,16 +66,15 @@ static void iem_sqrt4_tilde_maketable(void)
 {
   int i;
   t_float f;
-  long l;
+  union tabfudge_f tf;
   
   if(!iem_sqrt4_tilde_exptab)
   {
     iem_sqrt4_tilde_exptab = (t_float *)getbytes(sizeof(t_float) * IEMSQRT4TAB1SIZE);
     for(i=0; i<IEMSQRT4TAB1SIZE; i++)
     {
-      l = (i ? (i == IEMSQRT4TAB1SIZE-1 ? IEMSQRT4TAB1SIZE-2 : i) : 1)<< 23;
-      *(long *)(&f) = l;
-      iem_sqrt4_tilde_exptab[i] = 1.0f/sqrt(f); 
+      tf.tf_l = (i ? (i == IEMSQRT4TAB1SIZE-1 ? IEMSQRT4TAB1SIZE-2 : i) : 1)<< 23;
+      iem_sqrt4_tilde_exptab[i] = 1.0f/sqrt(tf.tf_f); 
     }
   }
   if(!iem_sqrt4_tilde_mantissatab)
-- 
cgit v1.2.1