1!	SPARCompiler 3.0 and later apparently no longer handles
2!	asm outside functions.  So we need a separate .s file
3!	This is only set up for SunOS 5, not SunOS 4.
4!	Assumes this is called before the stack contents are
5!	examined.
6
7	.seg 	"text"
8	.globl	GC_save_regs_in_stack
9	.globl 	GC_push_regs
10GC_save_regs_in_stack:
11GC_push_regs:
12#if defined(__arch64__) || defined(__sparcv9)
13	save	%sp,-128,%sp
14	flushw
15	ret
16	  restore %sp,2047+128,%o0
17#else /* 32 bit SPARC */
18	ta	0x3   ! ST_FLUSH_WINDOWS
19	mov	%sp,%o0
20	retl
21	nop
22#endif /* 32 bit SPARC */
23.GC_save_regs_in_stack_end:
24	.size GC_save_regs_in_stack,.GC_save_regs_in_stack_end-GC_save_regs_in_stack
25
26
27	.globl	GC_clear_stack_inner
28GC_clear_stack_inner:
29#if defined(__arch64__) || defined(__sparcv9)
30	mov %sp,%o2		! Save sp
31	add %sp,2047-8,%o3	! p = sp+bias-8
32	add %o1,-2047-192,%sp	! Move sp out of the way,
33  				! so that traps still work.
34  				! Includes some extra words
35  				! so we can be sloppy below.
36loop:
37	stx %g0,[%o3]		! *(long *)p = 0
38	cmp %o3,%o1
39	bgu,pt %xcc, loop	! if (p > limit) goto loop
40          add %o3,-8,%o3	! p -= 8 (delay slot)
41	retl
42    	  mov %o2,%sp		! Restore sp., delay slot
43#else  /* 32 bit SPARC */
44	mov	%sp,%o2		! Save sp
45	add	%sp,-8,%o3	! p = sp-8
46	clr	%g1		! [g0,g1] = 0
47	add	%o1,-0x60,%sp	! Move sp out of the way,
48				! so that traps still work.
49				! Includes some extra words
50				! so we can be sloppy below.
51loop:
52	std	%g0,[%o3]	! *(long long *)p = 0
53	cmp	%o3,%o1
54	bgu	loop		! if (p > limit) goto loop
55	  add	%o3,-8,%o3	! p -= 8 (delay slot)
56	retl
57	  mov	%o2,%sp		! Restore sp., delay slot
58#endif  /* 32 bit SPARC */
59.GC_clear_stack_inner_end:
60      	.size GC_clear_stack_inner,.GC_clear_stack_inner_end-GC_clear_stack_inner
61
62
63
64
65
66
67
68