implemented Setup.hs to build boehm cpp libs and install them;

[hs-boehmgc.git] / gc-7.2 / sparc_sunos4_mach_dep.s

diff --git a/gc-7.2/sparc_sunos4_mach_dep.s b/gc-7.2/sparc_sunos4_mach_dep.s
new file mode 100644 (file)
index 0000000..4185807
--- /dev/null
+++ b/gc-7.2/sparc_sunos4_mach_dep.s
@@ -0,0 +1,38 @@
+!      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
+       
+               
+               
+               
+               
+