(pure_alloc): Correct alignment for Lisp_Floats.

diff --git a/src/ChangeLog b/src/ChangeLog
index 66f295b093284f61084bf5bdd5f83887142bd422..d10f6e52b19740142774ce749a3bd75b818e9349 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-10  Andreas Schwab  <schwab@suse.de>
+
+       * alloc.c (pure_alloc): Correct alignment for Lisp_Floats.
+       Reported by Berthold Gunreben <b.gunreben@web.de>.
+
 2003-01-10  Dave Love  <fx@gnu.org>
 
        * composite.c (syms_of_composite): Make composition_hash_table

diff --git a/src/alloc.c b/src/alloc.c
index b884bfabfb0b9da15e735d12bd687436391c1811..47885c67534637d3cbff3a1226b032b7b3a26718 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1,5 +1,5 @@
 /* Storage allocation and gc for GNU Emacs Lisp interpreter.
-   Copyright (C) 1985, 86, 88, 93, 94, 95, 97, 98, 1999, 2000, 2001, 2002
+   Copyright (C) 1985, 86, 88, 93, 94, 95, 97, 98, 1999, 2000, 2001, 2002, 2003
       Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
@@ -3844,7 +3844,12 @@ pure_alloc (size, type)
 #else
       alignment = sizeof (struct Lisp_Float);
 #endif
-      pure_bytes_used = ALIGN (pure_bytes_used, alignment);
+      /* Make sure beg + pure_bytes_used is correctly aligned for a
+        Lisp_Float, which might need stricter alignment than
+        EMACS_INT.  */
+      pure_bytes_used
+       = (ALIGN ((EMACS_UINT) (beg + pure_bytes_used), alignment)
+          - (EMACS_UINT) beg);
     }
     
   nbytes = ALIGN (size, sizeof (EMACS_INT));