Initial revision

From-SVN: r26247

diff --git a/boehm-gc/alpha_mach_dep.s b/boehm-gc/alpha_mach_dep.s
new file mode 100644 (file)
index 0000000..f920bf0
--- /dev/null
+++ b/boehm-gc/alpha_mach_dep.s
@@ -0,0 +1,60 @@
+ # $Id: alpha_mach_dep.s,v 1.1 1999/04/07 14:56:06 tromey Exp $
+
+# define call_push(x)                                                  \
+       lda   $16, 0(x);        /* copy x to first argument register */ \
+       jsr   $26, GC_push_one; /* call GC_push_one, ret addr in $26 */ \
+       ldgp  $gp, 0($26)       /* restore $gp register from $ra */
+       
+        .text
+        .align  4
+        .globl  GC_push_regs
+        .ent    GC_push_regs 2
+GC_push_regs:
+       ldgp    $gp, 0($27)             # set gp from the procedure value reg
+       lda     $sp, -32($sp)           # make stack frame
+       stq     $26, 8($sp)             # save return address
+        .mask   0x04000000, -8
+        .frame  $sp, 16, $26, 0
+
+ #      call_push($0)    # expression eval and int func result
+
+ #      call_push($1)    # temp regs - not preserved cross calls
+ #      call_push($2)
+ #      call_push($3)
+ #      call_push($4)
+ #      call_push($5)
+ #      call_push($6)
+ #      call_push($7)
+ #      call_push($8)
+
+        call_push($9)    # Saved regs
+        call_push($10)
+        call_push($11)
+        call_push($12)
+        call_push($13)
+        call_push($14)
+
+        call_push($15)   # frame ptr or saved reg
+
+ #      call_push($16)   # argument regs - not preserved cross calls
+ #      call_push($17)
+ #      call_push($18)
+ #      call_push($19)
+ #      call_push($20)
+ #      call_push($21)
+
+ #      call_push($22)   # temp regs - not preserved cross calls
+ #      call_push($23)
+ #      call_push($24)
+ #      call_push($25)
+
+ #      call_push($26)   # return address - expression eval
+ #      call_push($27)   # procedure value or temporary reg
+ #      call_push($28)   # assembler temp - not presrved
+        call_push($29)   # Global Pointer
+ #      call_push($30)   # Stack Pointer
+
+       ldq     $26, 8($sp)             # restore return address
+       lda     $sp, 32($sp)            # pop stack frame
+       ret     $31, ($26), 1           # return ($31 == hardwired zero)
+       .end    GC_push_regs