$NetBSD: patch-aq,v 1.1 2002/01/09 23:04:58 seb Exp $ --- src/heap-sc.c.orig Thu Apr 4 14:55:43 1996 +++ src/heap-sc.c @@ -37,11 +37,11 @@ (void)P_Collect (); p = Hp; } - ALIGN(p); + ELK_ALIGN(p); if (p + size > Heap_End) { (void)P_Collect (); p = Hp; - ALIGN(p); + ELK_ALIGN(p); if (p + size > Heap_End - HEAP_MARGIN) Uncatchable_Error ("Out of heap space"); } @@ -108,7 +108,7 @@ SETPOINTER(*p, POINTER(*tag)); return; } - ALIGN(To); + ELK_ALIGN(To); switch (t) { case T_Bignum: size = sizeof (struct S_Bignum) - sizeof (gran_t)