From: Kim F. Storm <storm@cua.dk>
Date: Sun, 12 Jan 2003 00:40:09 +0000 (+0000)
Subject: (pure_alloc): Corrected last change; now align the
X-Git-Tag: ttn-vms-21-2-B4~11734
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=035261dcccb2f8e1b88ec9074d2f714d993ba24c;p=emacs.git

(pure_alloc): Corrected last change; now align the
pointer and adjust the size rather than aligning the size and
adjusting the pointer.  Use a goto to handle overflow exception.
---

diff --git a/src/alloc.c b/src/alloc.c
index 47885c67534..f19c2328899 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3833,39 +3833,42 @@ pure_alloc (size, type)
 {
   size_t nbytes;
   POINTER_TYPE *result;
-  char *beg = purebeg;
+  char *beg;
+
+ again:
+  beg = purebeg;
+  result = (POINTER_TYPE *) (beg + pure_bytes_used);
+  nbytes = ALIGN (size, sizeof (EMACS_INT));
 
   /* Give Lisp_Floats an extra alignment.  */
   if (type == Lisp_Float)
     {
+      POINTER_TYPE *orig = result;
       size_t alignment;
 #if defined __GNUC__ && __GNUC__ >= 2
       alignment = __alignof (struct Lisp_Float);
 #else
       alignment = sizeof (struct Lisp_Float);
 #endif
-      /* Make sure beg + pure_bytes_used is correctly aligned for a
+      /* Make sure result 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);
+      result = (POINTER_TYPE *)ALIGN((EMACS_UINT)result, alignment);
+      nbytes += (char *)result - (char *)orig;
     }
     
-  nbytes = ALIGN (size, sizeof (EMACS_INT));
-  
   if (pure_bytes_used + nbytes > pure_size)
     {
       /* Don't allocate a large amount here,
 	 because it might get mmap'd and then its address
 	 might not be usable.  */
-      beg = purebeg = (char *) xmalloc (10000);
+      purebeg = (char *) xmalloc (10000);
       pure_size = 10000;
       pure_bytes_used_before_overflow += pure_bytes_used;
       pure_bytes_used = 0;
+      goto again;
     }
 
-  result = (POINTER_TYPE *) (beg + pure_bytes_used);
   pure_bytes_used += nbytes;
   return result;
 }