File: [local] / OpenXM_contrib2 / asir2000 / gc / sparc_sunos4_mach_dep.s (download)
Revision 1.1.1.1 (vendor branch), Fri Dec 3 07:39:10 1999 UTC (24 years, 10 months ago) by noro
Branch: NORO
CVS Tags: maekawa-ipv6, STABLE_1_1_3, RELEASE_20000124, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2, ASIR2000 Changes since 1.1: +0 -0
lines
Imported asir2000 as OpenXM_contrib2/asir2000.
|
! 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