# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 730398077 0
# Node ID 82bbf90208d43ba013d53ef434d18801bfe7c59d
# Parent  047e196658fa09ecff26e75e7bbc494762e27e27
	* alloc.c (make_pure_float): Align pureptr according to __alignof,
	if it's available, or sizeof (struct Lisp_Float) if it's not.

diff -r 047e196658fa -r 82bbf90208d4 src/alloc.c
--- a/src/alloc.c	Mon Feb 22 15:10:46 1993 +0000
+++ b/src/alloc.c	Mon Feb 22 16:21:17 1993 +0000
@@ -991,12 +991,22 @@
      double num;
 {
   register Lisp_Object new;
+  int alignment;
 
   /* Make sure that pureptr is aligned on at least a sizeof (double)
      boundary.  Some architectures (like the sparc) require this, and
      I suspect that floats are rare enough that it's no tragedy for
      those that do.  */
-  pureptr = (pureptr + sizeof (num) - 1) & - sizeof (num);
+#ifdef __GNUC__
+#if __GNUC__ >= 2
+  alignment = __alignof (struct Lisp_Float);
+#else
+  alignment = sizeof (struct Lisp_Float);
+#endif
+#else
+  alignment = sizeof (struct Lisp_Float);
+#endif  
+  pureptr = (pureptr + alignment - 1) & - alignment;
 
   if (pureptr + sizeof (struct Lisp_Float) > PURESIZE)
     error ("Pure Lisp storage exhausted");