Subversion Repositories HelenOS-historic

Rev

Rev 532 | Rev 1053 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
55 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
 
414 jermar 31
.global context_save_arch
32
.global context_restore_arch
55 jermar 33
 
414 jermar 34
context_save_arch:
322 jermar 35
	alloc loc0 = ar.pfs, 1, 8, 0, 0
83 jermar 36
	mov loc1 = ar.unat	;;
94 jermar 37
	/* loc2 */
38
	mov loc3 = ar.rsc
100 jermar 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
	 */
435 jermar 53
	and loc5 = ~3, loc3
100 jermar 54
	mov ar.rsc = loc5
94 jermar 55
	mov loc5 = ar.rnat
100 jermar 56
 
57
	.explicit
58
 
94 jermar 59
	mov loc6 = ar.lc
59 jermar 60
 
94 jermar 61
	/*
62
	 * Save application registers
63
	 */
83 jermar 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) */
94 jermar 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 */
83 jermar 72
 
59 jermar 73
	/*
83 jermar 74
	 * Save general registers including NaT bits
82 jermar 75
	 */
83 jermar 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	;;
59 jermar 83
 
83 jermar 84
	mov loc3 = ar.unat		;;
85
	st8 [loc2] = loc3		/* save ar.unat (callee) */
86
 
82 jermar 87
	/*
88
	 * Save branch registers
89
	 */
83 jermar 90
	mov loc2 = b0		;;
91
	st8 [in0] = loc2, 8		/* save pc */
92
	mov loc3 = b1		;;
82 jermar 93
	st8 [in0] = loc3, 8
83 jermar 94
	mov loc4 = b2		;;
82 jermar 95
	st8 [in0] = loc4, 8
83 jermar 96
	mov loc5 = b3		;;
82 jermar 97
	st8 [in0] = loc5, 8
83 jermar 98
	mov loc6 = b4		;;
82 jermar 99
	st8 [in0] = loc6, 8
83 jermar 100
	mov loc7 = b5		;;
82 jermar 101
	st8 [in0] = loc7, 8
102
 
103
	/*
104
	 * Save predicate registers
105
	 */
83 jermar 106
	mov loc2 = pr		;;
107
	st8 [in0] = loc2, 8
59 jermar 108
 
83 jermar 109
	mov ar.unat = loc1
59 jermar 110
 
111
	add r8 = r0, r0, 1 		/* context_save returns 1 */
60 jermar 112
	br.ret.sptk.many b0
55 jermar 113
 
414 jermar 114
context_restore_arch:
416 jermar 115
	alloc loc0 = ar.pfs, 1, 9, 0, 0	;;
59 jermar 116
 
94 jermar 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
 
100 jermar 125
	.auto	
126
 
59 jermar 127
	/*
100 jermar 128
	 * Invalidate the ALAT
129
	 */
130
	invala
131
 
132
	/*
416 jermar 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
	/*
94 jermar 148
	 * Restore application registers
59 jermar 149
	 */
416 jermar 150
	mov ar.bspstore = loc4	/* rse.bspload = ar.bsp = ar.bspstore = loc4 */
100 jermar 151
	mov ar.rnat = loc5
152
	mov ar.pfs = loc0
153
	mov ar.rsc = loc3
154
 
155
	.explicit
156
 
83 jermar 157
	mov ar.unat = loc2	;;
94 jermar 158
	mov ar.lc = loc6
83 jermar 159
 
82 jermar 160
	/*
83 jermar 161
	 * Restore general registers including NaT bits
82 jermar 162
	 */
83 jermar 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	;;
59 jermar 170
 
82 jermar 171
	/* 
172
	 * Restore branch registers
173
	 */
83 jermar 174
	ld8 loc2 = [in0], 8	;;	/* restore pc */
175
	mov b0 = loc2
82 jermar 176
	ld8 loc3 = [in0], 8	;;
83 jermar 177
	mov b1 = loc3
82 jermar 178
	ld8 loc4 = [in0], 8	;;
83 jermar 179
	mov b2 = loc4
82 jermar 180
	ld8 loc5 = [in0], 8	;;
83 jermar 181
	mov b3 = loc5
82 jermar 182
	ld8 loc6 = [in0], 8	;;
83 jermar 183
	mov b4 = loc6
82 jermar 184
	ld8 loc7 = [in0], 8	;;
83 jermar 185
	mov b5 = loc7
82 jermar 186
 
83 jermar 187
	/*
188
	 * Restore predicate registers
189
	 */
190
	ld8 loc2 = [in0], 8	;;
191
	mov pr = loc2, ~0
59 jermar 192
 
83 jermar 193
	mov ar.unat = loc1
59 jermar 194
 
195
	mov r8 = r0			/* context_restore returns 0 */
60 jermar 196
	br.ret.sptk.many b0