| 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
|
|---|
| 10 | GC_save_regs_in_stack:
|
|---|
| 11 | GC_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
|
|---|
| 28 | GC_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.
|
|---|
| 36 | loop:
|
|---|
| 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.
|
|---|
| 51 | loop:
|
|---|
| 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 |
|
|---|
