aboutsummaryrefslogtreecommitdiff
path: root/boehm-gc/alpha_mach_dep.s
diff options
context:
space:
mode:
Diffstat (limited to 'boehm-gc/alpha_mach_dep.s')
-rw-r--r--boehm-gc/alpha_mach_dep.s59
1 files changed, 0 insertions, 59 deletions
diff --git a/boehm-gc/alpha_mach_dep.s b/boehm-gc/alpha_mach_dep.s
deleted file mode 100644
index eed3998914a..00000000000
--- a/boehm-gc/alpha_mach_dep.s
+++ /dev/null
@@ -1,59 +0,0 @@
-
-# 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