1#ifdef LIBC_SCCS 2 .asciz "@(#)alloca.s 1.1 (Berkeley/CCI) 08/01/86" 3#endif LIBC_SCCS 4 5/* like alloc, but automatic automatic free in return */ 6 7#include "DEFS.h" 8 9ENTRY(alloca, 0) 10 moval (sp),r0 # current sp 11 subl2 4(fp),r0 # allocation size 12 andl2 $0xfffffffc,r0 # allignment 13 movl -8(fp),r1 # old pc 14 movl (fp),fp # old fp 15 addl2 $4*4,r0 # reuse space of mscp 16 movl r0,sp # new sp 17 jmp (r1) # funny return 18