2005-03-23 Benjamin Kosnik <bkoz@redhat.com>
[official-gcc.git] / boehm-gc / alpha_mach_dep.S
blob53547307a5d1d9aee0c6513a2dd9ada02ccc45ce
1  # $Id: alpha_mach_dep.s,v 1.2 1993/01/18 22:54:51 dosser Exp $
2         .arch ev6
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
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
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)
36  # $f0-$f1      floating point results
37  # $f2-$f9      call saved regs
38  # $f10-$f30    temp regs - not preserved cross calls
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
45 #undef call_push
46 #define call_push(x)                    \
47         ftoit   x, $16;                 \
48         jsr     $26, GC_push_one;       \
49         ldgp    $gp, 0($26)
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)
60         ldq     $26, 0($sp)
61         lda     $sp, 16($sp)
62         ret     $31, ($26), 1
64         .align  4
65 $use_stack:
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)
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)
83         ldq     $26, 0($sp)
84         lda     $sp, 16($sp)
85         ret     $31, ($26), 1
87         .end    GC_push_regs