← Back to branch summary

~galfy/helenos/bird-port-mainline

« back to all changes in this revision

Viewing changes to uspace/lib/libc/arch/ia64/src/fibril.S

  • Committer: Martin Decky
  • Date: 2009-08-04 11:19:19 UTC
  • Revision ID: martin@uranus.dsrg.hide.ms.mff.cuni.cz-20090804111919-evyclddlr3v5lhmp
Initial import

Show diffs side-by-side

added added

removed removed

Lines of Context:
uspace/lib/libc/arch/ia64/src/fibril.S
 
1
#
 
2
# Copyright (c) 2005 Jakub Jermar
 
3
# All rights reserved.
 
4
#
 
5
# Redistribution and use in source and binary forms, with or without
 
6
# modification, are permitted provided that the following conditions
 
7
# are met:
 
8
#
 
9
# - Redistributions of source code must retain the above copyright
 
10
#   notice, this list of conditions and the following disclaimer.
 
11
# - Redistributions in binary form must reproduce the above copyright
 
12
#   notice, this list of conditions and the following disclaimer in the
 
13
#   documentation and/or other materials provided with the distribution.
 
14
# - The name of the author may not be used to endorse or promote products
 
15
#   derived from this software without specific prior written permission.
 
16
#
 
17
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 
18
# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 
19
# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 
20
# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
 
21
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 
22
# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 
23
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 
24
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 
25
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 
26
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
27
#
 
28
 
 
29
.text
 
30
 
 
31
.global context_save
 
32
.global context_restore
 
33
 
 
34
context_save:
 
35
        alloc loc0 = ar.pfs, 1, 8, 0, 0
 
36
        mov loc1 = ar.unat      ;;
 
37
        /* loc2 */
 
38
        mov loc3 = ar.rsc
 
39
 
 
40
        .auto
 
41
 
 
42
        /*
 
43
         * Flush dirty registers to backing store.
 
44
         * After this ar.bsp and ar.bspstore are equal.
 
45
         */
 
46
        flushrs
 
47
        mov loc4 = ar.bsp       
 
48
        
 
49
        /*
 
50
         * Put RSE to enforced lazy mode.
 
51
         * So that ar.rnat can be read.
 
52
         */
 
53
        and loc5 = ~3, loc3
 
54
        mov ar.rsc = loc5
 
55
        mov loc5 = ar.rnat
 
56
 
 
57
        .explicit
 
58
 
 
59
        mov loc6 = ar.lc
 
60
        
 
61
        /*
 
62
         * Save application registers
 
63
         */
 
64
        st8 [in0] = loc0, 8     ;;      /* save ar.pfs */
 
65
        st8 [in0] = loc1, 8     ;;      /* save ar.unat (caller) */
 
66
        mov loc2 = in0          ;;
 
67
        add in0 = 8, in0        ;;      /* skip ar.unat (callee) */
 
68
        st8 [in0] = loc3, 8     ;;      /* save ar.rsc */
 
69
        st8 [in0] = loc4, 8     ;;      /* save ar.bsp */
 
70
        st8 [in0] = loc5, 8     ;;      /* save ar.rnat */
 
71
        st8 [in0] = loc6, 8     ;;      /* save ar.lc */
 
72
        
 
73
        /*
 
74
         * Save general registers including NaT bits
 
75
         */
 
76
        st8.spill [in0] = r1, 8         ;;
 
77
        st8.spill [in0] = r4, 8         ;;
 
78
        st8.spill [in0] = r5, 8         ;;
 
79
        st8.spill [in0] = r6, 8         ;;
 
80
        st8.spill [in0] = r7, 8         ;;
 
81
        st8.spill [in0] = r12, 8        ;;      /* save sp */
 
82
        st8.spill [in0] = r13, 8        ;;      /* save tp */
 
83
 
 
84
        mov loc3 = ar.unat              ;;
 
85
        st8 [loc2] = loc3               /* save ar.unat (callee) */
 
86
 
 
87
        /*
 
88
         * Save branch registers
 
89
         */
 
90
        mov loc2 = b0           ;;
 
91
        st8 [in0] = loc2, 8             /* save pc */
 
92
        mov loc3 = b1           ;;
 
93
        st8 [in0] = loc3, 8
 
94
        mov loc4 = b2           ;;
 
95
        st8 [in0] = loc4, 8
 
96
        mov loc5 = b3           ;;
 
97
        st8 [in0] = loc5, 8
 
98
        mov loc6 = b4           ;;
 
99
        st8 [in0] = loc6, 8
 
100
        mov loc7 = b5           ;;
 
101
        st8 [in0] = loc7, 8
 
102
 
 
103
        /*
 
104
         * Save predicate registers
 
105
         */
 
106
        mov loc2 = pr           ;;
 
107
        st8 [in0] = loc2, 16;;          /* Next fpu registers should be spilled to 16B aligned address */
 
108
 
 
109
        /*
 
110
         * Save floating-point registers.
 
111
         */
 
112
        stf.spill [in0] = f2, 16 ;;
 
113
        stf.spill [in0] = f3, 16 ;;
 
114
        stf.spill [in0] = f4, 16 ;;
 
115
        stf.spill [in0] = f5, 16 ;;
 
116
 
 
117
        stf.spill [in0] = f16, 16 ;;
 
118
        stf.spill [in0] = f17, 16 ;;
 
119
        stf.spill [in0] = f18, 16 ;;
 
120
        stf.spill [in0] = f19, 16 ;;
 
121
        stf.spill [in0] = f20, 16 ;;
 
122
        stf.spill [in0] = f21, 16 ;;
 
123
        stf.spill [in0] = f22, 16 ;;
 
124
        stf.spill [in0] = f23, 16 ;;
 
125
        stf.spill [in0] = f24, 16 ;;
 
126
        stf.spill [in0] = f25, 16 ;;
 
127
        stf.spill [in0] = f26, 16 ;;
 
128
        stf.spill [in0] = f27, 16 ;;
 
129
        stf.spill [in0] = f28, 16 ;;
 
130
        stf.spill [in0] = f29, 16 ;;
 
131
        stf.spill [in0] = f30, 16 ;;
 
132
        stf.spill [in0] = f31, 16 ;;    
 
133
 
 
134
        mov ar.unat = loc1
 
135
        
 
136
        add r8 = r0, r0, 1              /* context_save returns 1 */
 
137
        br.ret.sptk.many b0
 
138
 
 
139
context_restore:
 
140
        alloc loc0 = ar.pfs, 1, 9, 0, 0 ;;
 
141
 
 
142
        ld8 loc0 = [in0], 8     ;;      /* load ar.pfs */
 
143
        ld8 loc1 = [in0], 8     ;;      /* load ar.unat (caller) */
 
144
        ld8 loc2 = [in0], 8     ;;      /* load ar.unat (callee) */
 
145
        ld8 loc3 = [in0], 8     ;;      /* load ar.rsc */
 
146
        ld8 loc4 = [in0], 8     ;;      /* load ar.bsp */
 
147
        ld8 loc5 = [in0], 8     ;;      /* load ar.rnat */
 
148
        ld8 loc6 = [in0], 8     ;;      /* load ar.lc */
 
149
        
 
150
        .auto   
 
151
 
 
152
        /*
 
153
         * Invalidate the ALAT
 
154
         */
 
155
        invala
 
156
 
 
157
        /*
 
158
         * Put RSE to enforced lazy mode.
 
159
         * So that ar.bspstore and ar.rnat can be written.
 
160
         */
 
161
        movl loc8 = ~3
 
162
        and loc8 = loc3, loc8
 
163
        mov ar.rsc = loc8
 
164
 
 
165
        /*
 
166
         * Flush dirty registers to backing store.
 
167
         * We do this because we want the following move
 
168
         * to ar.bspstore to assign the same value to ar.bsp.
 
169
         */
 
170
        flushrs
 
171
 
 
172
        /*
 
173
         * Restore application registers
 
174
         */
 
175
        mov ar.bspstore = loc4  /* rse.bspload = ar.bsp = ar.bspstore = loc4 */
 
176
        mov ar.rnat = loc5
 
177
        mov ar.pfs = loc0
 
178
        mov ar.rsc = loc3
 
179
 
 
180
        .explicit
 
181
 
 
182
        mov ar.unat = loc2      ;;
 
183
        mov ar.lc = loc6
 
184
        
 
185
        /*
 
186
         * Restore general registers including NaT bits
 
187
         */
 
188
        ld8.fill r1 = [in0], 8  ;;
 
189
        ld8.fill r4 = [in0], 8  ;;
 
190
        ld8.fill r5 = [in0], 8  ;;
 
191
        ld8.fill r6 = [in0], 8  ;;
 
192
        ld8.fill r7 = [in0], 8  ;;
 
193
        ld8.fill r12 = [in0], 8 ;;      /* restore sp */
 
194
        ld8.fill r13 = [in0], 8 ;;
 
195
 
 
196
        /* 
 
197
         * Restore branch registers
 
198
         */
 
199
        ld8 loc2 = [in0], 8     ;;      /* restore pc */
 
200
        mov b0 = loc2
 
201
        ld8 loc3 = [in0], 8     ;;
 
202
        mov b1 = loc3
 
203
        ld8 loc4 = [in0], 8     ;;
 
204
        mov b2 = loc4
 
205
        ld8 loc5 = [in0], 8     ;;
 
206
        mov b3 = loc5
 
207
        ld8 loc6 = [in0], 8     ;;
 
208
        mov b4 = loc6
 
209
        ld8 loc7 = [in0], 8     ;;
 
210
        mov b5 = loc7
 
211
 
 
212
        /*
 
213
         * Restore predicate registers
 
214
         */
 
215
        ld8 loc2 = [in0], 16    ;;
 
216
        mov pr = loc2, ~0
 
217
 
 
218
        /*
 
219
         * Restore floating-point registers.
 
220
         */
 
221
        ldf.fill f2 = [in0], 16 ;;
 
222
        ldf.fill f3 = [in0], 16 ;;
 
223
        ldf.fill f4 = [in0], 16 ;;
 
224
        ldf.fill f5 = [in0], 16 ;;
 
225
 
 
226
        ldf.fill f16 = [in0], 16 ;;
 
227
        ldf.fill f17 = [in0], 16 ;;
 
228
        ldf.fill f18 = [in0], 16 ;;
 
229
        ldf.fill f19 = [in0], 16 ;;
 
230
        ldf.fill f20 = [in0], 16 ;;
 
231
        ldf.fill f21 = [in0], 16 ;;
 
232
        ldf.fill f22 = [in0], 16 ;;
 
233
        ldf.fill f23 = [in0], 16 ;;
 
234
        ldf.fill f24 = [in0], 16 ;;
 
235
        ldf.fill f25 = [in0], 16 ;;
 
236
        ldf.fill f26 = [in0], 16 ;;
 
237
        ldf.fill f27 = [in0], 16 ;;
 
238
        ldf.fill f28 = [in0], 16 ;;
 
239
        ldf.fill f29 = [in0], 16 ;;
 
240
        ldf.fill f30 = [in0], 16 ;;
 
241
        ldf.fill f31 = [in0], 16 ;;
 
242
        
 
243
        mov ar.unat = loc1
 
244
        
 
245
        mov r8 = r0                     /* context_restore returns 0 */
 
246
        br.ret.sptk.many b0