Return to sparc_mach_dep.s CVS log | Up to [local] / OpenXM_contrib2 / asir2000 / gc5.3 |
File: [local] / OpenXM_contrib2 / asir2000 / gc5.3 / Attic / sparc_mach_dep.s (download)
Revision 1.1.1.1 (vendor branch), Fri Apr 20 10:05:34 2001 UTC (23 years, 5 months ago) by noro
Asir on Windows does not work well with GC6.0alpha7. So I will import the old version of GC (GC5.3). |
! 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: 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