#APP
# 
#  alloca(nbytes) allocate junk in stack frame
#
#  void *alloca(size_t size)
# 

	.text
 	.even

.globl	_alloca
_alloca:
	movel	sp@+,a0		| get return addr
	movel	sp@+,d0		| get size -- assist in bug fix, add 4 to sp

	addql	#1,d0		| ensure address even
	andl	#0xFFFFFFFE,d0	| lop off extra bits

	subl	d0,sp		| increase stack frame size by that much
	movel	sp,d0		| set up to return it

	lea	sp@(-4),sp	| new top of stack (real bug fix here)

	jmp	a0@		| return by jmping via saved addr