Subversion Repositories openrisc

!       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