!	SPARCompiler 3.0 and later apparently no longer handles

!	asm outside functions.  So we need a separate .s file

!	This is only set up for SunOS 4.

!	Assumes this is called before the stack contents are

!	examined.

#include "machine/asm.h"

	.seg 	"text"

	.globl	_C_LABEL(GC_save_regs_in_stack)

	.globl 	_C_LABEL(GC_push_regs)

_C_LABEL(GC_save_regs_in_stack):

_C_LABEL(GC_push_regs):

	ta	0x3   ! ST_FLUSH_WINDOWS

	mov	%sp,%o0

	retl

	nop

	.globl	_C_LABEL(GC_clear_stack_inner)

_C_LABEL(GC_clear_stack_inner):

	mov	%sp,%o2		! Save sp

	add	%sp,-8,%o3	! p = sp-8

	clr	%g1		! [g0,g1] = 0

	add	%o1,-0x60,%sp	! Move sp out of the way,

				! so that traps still work.

				! Includes some extra words

				! so we can be sloppy below.

loop:

	std	%g0,[%o3]	! *(long long *)p = 0

	cmp	%o3,%o1

	bgu	loop		! if (p > limit) goto loop

	add	%o3,-8,%o3	! p -= 8 (delay slot)

	retl

	mov	%o2,%sp		! Restore sp., delay slot