1/* 2 * Copyright (c) 1988 Regents of the University of California. 3 * All rights reserved. 4 * 5 * This code is derived from software contributed to Berkeley by 6 * Computer Consoles Inc. 7 * 8 * Redistribution and use in source and binary forms are permitted 9 * provided that this notice is preserved and that due credit is given 10 * to the University of California at Berkeley. The name of the University 11 * may not be used to endorse or promote products derived from this 12 * software without specific prior written permission. This software 13 * is provided ``as is'' without express or implied warranty. 14 */ 15 16#if defined(LIBC_SCCS) && !defined(lint) 17_sccsid:.asciz "@(#)alloca.s 1.2 (Berkeley) 05/23/88" 18#endif /* LIBC_SCCS and not lint */ 19 20/* like alloc, but automatic automatic free in return */ 21 22#include "DEFS.h" 23 24ENTRY(alloca, 0) 25 moval (sp),r0 # current sp 26 subl2 4(fp),r0 # allocation size 27 andl2 $0xfffffffc,r0 # allignment 28 movl -8(fp),r1 # old pc 29 movl (fp),fp # old fp 30 addl2 $4*4,r0 # reuse space of mscp 31 movl r0,sp # new sp 32 jmp (r1) # funny return 33