1/* 2 * Copyright (c) 1988 Regents of the University of California. 3 * All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 * 7 * This code is derived from software contributed to Berkeley by 8 * Computer Consoles Inc. 9 */ 10 11#if defined(LIBC_SCCS) && !defined(lint) 12 .asciz "@(#)alloca.s 1.4 (Berkeley) 06/01/90" 13#endif /* LIBC_SCCS and not lint */ 14 15/* like alloc, but automatic automatic free in return */ 16 17#include "DEFS.h" 18 19ENTRY(alloca, 0) 20 moval (sp),r0 # current sp 21 subl2 4(fp),r0 # allocation size 22 andl2 $0xfffffffc,r0 # allignment 23 movl -8(fp),r1 # old pc 24 movl (fp),fp # old fp 25 addl2 $4*4,r0 # reuse space of mscp 26 movl r0,sp # new sp 27 jmp (r1) # funny return 28