Subversion Repositories HelenOS-historic

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1125 jermar 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, 8	;;
108
 
109
	mov ar.unat = loc1
110
 
111
	add r8 = r0, r0, 1 		/* context_save returns 1 */
112
	br.ret.sptk.many b0
113
 
114
context_restore:
115
	alloc loc0 = ar.pfs, 1, 9, 0, 0	;;
116
 
117
	ld8 loc0 = [in0], 8	;;	/* load ar.pfs */
118
	ld8 loc1 = [in0], 8	;;	/* load ar.unat (caller) */
119
	ld8 loc2 = [in0], 8	;;	/* load ar.unat (callee) */
120
	ld8 loc3 = [in0], 8	;;	/* load ar.rsc */
121
	ld8 loc4 = [in0], 8	;;	/* load ar.bsp */
122
	ld8 loc5 = [in0], 8	;;	/* load ar.rnat */
123
	ld8 loc6 = [in0], 8	;;	/* load ar.lc */
124
 
125
	.auto	
126
 
127
	/*
128
	 * Invalidate the ALAT
129
	 */
130
	invala
131
 
132
	/*
133
	 * Put RSE to enforced lazy mode.
134
	 * So that ar.bspstore and ar.rnat can be written.
135
	 */
136
	movl loc8 = ~3
137
	and loc8 = loc3, loc8
138
	mov ar.rsc = loc8
139
 
140
	/*
141
	 * Flush dirty registers to backing store.
142
	 * We do this because we want the following move
143
	 * to ar.bspstore to assign the same value to ar.bsp.
144
	 */
145
	flushrs
146
 
147
	/*
148
	 * Restore application registers
149
	 */
150
	mov ar.bspstore = loc4	/* rse.bspload = ar.bsp = ar.bspstore = loc4 */
151
	mov ar.rnat = loc5
152
	mov ar.pfs = loc0
153
	mov ar.rsc = loc3
154
 
155
	.explicit
156
 
157
	mov ar.unat = loc2	;;
158
	mov ar.lc = loc6
159
 
160
	/*
161
	 * Restore general registers including NaT bits
162
	 */
163
	ld8.fill r1 = [in0], 8	;;
164
	ld8.fill r4 = [in0], 8	;;
165
	ld8.fill r5 = [in0], 8	;;
166
	ld8.fill r6 = [in0], 8	;;
167
	ld8.fill r7 = [in0], 8	;;
168
	ld8.fill r12 = [in0], 8	;;	/* restore sp */
169
	ld8.fill r13 = [in0], 8	;;
170
 
171
	/* 
172
	 * Restore branch registers
173
	 */
174
	ld8 loc2 = [in0], 8	;;	/* restore pc */
175
	mov b0 = loc2
176
	ld8 loc3 = [in0], 8	;;
177
	mov b1 = loc3
178
	ld8 loc4 = [in0], 8	;;
179
	mov b2 = loc4
180
	ld8 loc5 = [in0], 8	;;
181
	mov b3 = loc5
182
	ld8 loc6 = [in0], 8	;;
183
	mov b4 = loc6
184
	ld8 loc7 = [in0], 8	;;
185
	mov b5 = loc7
186
 
187
	/*
188
	 * Restore predicate registers
189
	 */
190
	ld8 loc2 = [in0], 8	;;
191
	mov pr = loc2, ~0
192
 
193
	mov ar.unat = loc1
194
 
195
	mov r8 = r0			/* context_restore returns 0 */
196
	br.ret.sptk.many b0