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