! 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.

.seg "text"

.globl _GC_save_regs_in_stack

.globl _GC_push_regs

_GC_save_regs_in_stack:

_GC_push_regs:

ta 0x3 ! ST_FLUSH_WINDOWS

mov %sp,%o0

retl

nop

.globl _GC_clear_stack_inner

_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