File: [local] / OpenXM_contrib2 / asir2000 / gc5.3 / Attic / alpha_mach_dep.s (download)
Revision 1.1.1.1 (vendor branch), Fri Apr 20 10:05:32 2001 UTC (23 years, 5 months ago) by noro
Branch: NORO
CVS Tags: RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, KNOPPIX_2006, GC5_3, DEB_REL_1_2_3-9 Changes since 1.1: +0 -0
lines
Asir on Windows does not work well with GC6.0alpha7. So I will import
the old version of GC (GC5.3).
|
# $Id: alpha_mach_dep.s,v 1.2 1993/01/18 22:54:51 dosser Exp $
# This is BROKEN on a 21264 running gcc, and probably in other cases.
# The compiler may spill pointers to fp registers, and this code doesn't
# scan those.
# 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