mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-27 14:50:23 +00:00
68 lines
1.7 KiB
ArmAsm
68 lines
1.7 KiB
ArmAsm
! 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 5, not 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:
|
|
#if defined(__arch64__) || defined(__sparcv9)
|
|
save %sp,-128,%sp
|
|
flushw
|
|
ret
|
|
restore %sp,2047+128,%o0
|
|
#else /* 32 bit SPARC */
|
|
ta 0x3 ! ST_FLUSH_WINDOWS
|
|
mov %sp,%o0
|
|
retl
|
|
nop
|
|
#endif /* 32 bit SPARC */
|
|
.GC_save_regs_in_stack_end:
|
|
.size GC_save_regs_in_stack,.GC_save_regs_in_stack_end-GC_save_regs_in_stack
|
|
|
|
|
|
.globl GC_clear_stack_inner
|
|
GC_clear_stack_inner:
|
|
#if defined(__arch64__) || defined(__sparcv9)
|
|
mov %sp,%o2 ! Save sp
|
|
add %sp,2047-8,%o3 ! p = sp+bias-8
|
|
add %o1,-2047-192,%sp ! Move sp out of the way,
|
|
! so that traps still work.
|
|
! Includes some extra words
|
|
! so we can be sloppy below.
|
|
loop:
|
|
stx %g0,[%o3] ! *(long *)p = 0
|
|
cmp %o3,%o1
|
|
bgu,pt %xcc, loop ! if (p > limit) goto loop
|
|
add %o3,-8,%o3 ! p -= 8 (delay slot)
|
|
retl
|
|
mov %o2,%sp ! Restore sp., delay slot
|
|
#else /* 32 bit SPARC */
|
|
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
|
|
#endif /* 32 bit SPARC */
|
|
.GC_clear_stack_inner_end:
|
|
.size GC_clear_stack_inner,.GC_clear_stack_inner_end-GC_clear_stack_inner
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|