procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* alloc.c (make_pure_float): Assure that PUREBEG + pureptr is

Browse source 
aligned, not pureptr itself.
This commit is contained in:
Jim Blandy 1993-02-23 11:49:39 +00:00
parent 57e83cfeff
commit 6d19f28ad1
1 changed files with 14 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/alloc.c
View file

@ -991,22 +991,27 @@ make_pure_float (num)
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. */
/* Make sure that PUREBEG + 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. */
{
int alignment;
char *p = PUREBEG + pureptr;
#ifdef __GNUC__
#if __GNUC__ >= 2
alignment = __alignof (struct Lisp_Float);
alignment = __alignof (struct Lisp_Float);
#else
alignment = sizeof (struct Lisp_Float);
alignment = sizeof (struct Lisp_Float);
#endif
#else
alignment = sizeof (struct Lisp_Float);
alignment = sizeof (struct Lisp_Float);
#endif
pureptr = (pureptr + alignment - 1) & - alignment;
p = (char *) (((unsigned long) p + alignment - 1) & - alignment);
pureptr = p - PUREBEG;
}
if (pureptr + sizeof (struct Lisp_Float) > PURESIZE)
error ("Pure Lisp storage exhausted");