# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 801182889 0
# Node ID 1c98f33055faeb91ec0e1e302b1a538d869d1ebc
# Parent  f371dc7252dc74a3ee11016ebbe5bd11b27d3cda
(Fformat): Split double into two pointers, not two ints.

diff -r f371dc7252dc -r 1c98f33055fa src/editfns.c
--- a/src/editfns.c	Mon May 22 22:28:55 1995 +0000
+++ b/src/editfns.c	Mon May 22 22:48:09 1995 +0000
@@ -1870,11 +1870,11 @@
 #ifdef LISP_FLOAT_TYPE
 	else if (FLOATP (args[n]))
 	  {
-	    union { double d; int half[2]; } u;
+	    union { double d; char *half[2]; } u;
 
 	    u.d = XFLOAT (args[n])->data;
-	    strings[i++] = (unsigned char *) (EMACS_INT) u.half[0];
-	    strings[i++] = (unsigned char *) (EMACS_INT) u.half[1];
+	    strings[i++] = (unsigned char *) u.half[0];
+	    strings[i++] = (unsigned char *) u.half[1];
 	  }
 #endif
 	else