1/* alloca.s 4.2 84/11/01 */ 2/* like alloc, but automatic free in return */ 3 4#include "DEFS.h" 5 6ENTRY(alloca, 0) 7 subl2 4(ap),sp /* crude allocation */ 8 movl 16(fp),r1 /* pc */ 9 movq 8(fp),ap /* new (old) ap and fp */ 10 bicl2 $3,sp /* 4-byte align */ 11 addl2 $7*4,sp /* reuse space of mscp */ 12 movl sp,r0 /* return value */ 13 jmp (r1) /* funny return */ 14