Annotation of OpenXM_contrib2/asir2000/gc/alpha_mach_dep.S, Revision 1.1
1.1 ! noro 1: # $Id: alpha_mach_dep.s,v 1.2 1993/01/18 22:54:51 dosser Exp $
! 2: .arch ev6
! 3:
! 4: .text
! 5: .align 4
! 6: .globl GC_push_regs
! 7: .ent GC_push_regs 2
! 8: GC_push_regs:
! 9: ldgp $gp, 0($27)
! 10: lda $sp, -16($sp)
! 11: stq $26, 0($sp)
! 12: .mask 0x04000000, 0
! 13: .frame $sp, 16, $26, 0
! 14:
! 15: # $0 integer result
! 16: # $1-$8 temp regs - not preserved cross calls
! 17: # $9-$15 call saved regs
! 18: # $16-$21 argument regs - not preserved cross calls
! 19: # $22-$28 temp regs - not preserved cross calls
! 20: # $29 global pointer - not preserved cross calls
! 21: # $30 stack pointer
! 22:
! 23: # define call_push(x) \
! 24: mov x, $16; \
! 25: jsr $26, GC_push_one; \
! 26: ldgp $gp, 0($26)
! 27:
! 28: call_push($9)
! 29: call_push($10)
! 30: call_push($11)
! 31: call_push($12)
! 32: call_push($13)
! 33: call_push($14)
! 34: call_push($15)
! 35:
! 36: # $f0-$f1 floating point results
! 37: # $f2-$f9 call saved regs
! 38: # $f10-$f30 temp regs - not preserved cross calls
! 39:
! 40: # Use the most efficient transfer method for this hardware.
! 41: # Bit 1 detects the FIX extension, which includes ftoit.
! 42: amask 2, $0
! 43: bne $0, $use_stack
! 44:
! 45: #undef call_push
! 46: #define call_push(x) \
! 47: ftoit x, $16; \
! 48: jsr $26, GC_push_one; \
! 49: ldgp $gp, 0($26)
! 50:
! 51: call_push($f2)
! 52: call_push($f3)
! 53: call_push($f4)
! 54: call_push($f5)
! 55: call_push($f6)
! 56: call_push($f7)
! 57: call_push($f8)
! 58: call_push($f9)
! 59:
! 60: ldq $26, 0($sp)
! 61: lda $sp, 16($sp)
! 62: ret $31, ($26), 1
! 63:
! 64: .align 4
! 65: $use_stack:
! 66:
! 67: #undef call_push
! 68: #define call_push(x) \
! 69: stt x, 8($sp); \
! 70: ldq $16, 8($sp); \
! 71: jsr $26, GC_push_one; \
! 72: ldgp $gp, 0($26)
! 73:
! 74: call_push($f2)
! 75: call_push($f3)
! 76: call_push($f4)
! 77: call_push($f5)
! 78: call_push($f6)
! 79: call_push($f7)
! 80: call_push($f8)
! 81: call_push($f9)
! 82:
! 83: ldq $26, 0($sp)
! 84: lda $sp, 16($sp)
! 85: ret $31, ($26), 1
! 86:
! 87: .end GC_push_regs
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>