diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 23 |
1 files changed, 14 insertions, 9 deletions
diff --git a/src/alloc.c b/src/alloc.c index f3010dbac5d..476ca817ba8 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -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"); |