14ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm/* libunwind - a platform-independent unwind library
24ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm   Copyright (C) 2004 Hewlett-Packard Co
34ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	Contributed by David Mosberger-Tang <davidm@hpl.hp.com>
44ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
54ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidmThis file is part of libunwind.
64ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
74ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidmPermission is hereby granted, free of charge, to any person obtaining
84ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidma copy of this software and associated documentation files (the
94ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm"Software"), to deal in the Software without restriction, including
104ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidmwithout limitation the rights to use, copy, modify, merge, publish,
114ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidmdistribute, sublicense, and/or sell copies of the Software, and to
124ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidmpermit persons to whom the Software is furnished to do so, subject to
134ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidmthe following conditions:
144ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
154ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidmThe above copyright notice and this permission notice shall be
164ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidmincluded in all copies or substantial portions of the Software.
174ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
184ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidmTHE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
194ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidmEXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
204ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidmMERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
214ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidmNONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
224ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidmLIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
234ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidmOF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
244ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidmWITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.  */
254ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
264ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm#include "ucontext_i.h"
274ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
284ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm#define GR(n)   (SC_GR + (n)*8)
294ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm#define BR(n)   (SC_BR + (n)*8)
304ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm#define FR(n)   (SC_FR + (n)*16)
314ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
324ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm/* This should be compatible to the libc's getcontext(), except that
334ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm   the sc->sc_mask field is always cleared and that the name is
344ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm   prefixed with _Uia64_ so we don't step on the application's
354ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm   name-space.  */
364ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
374ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	.align 32
384ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	.protected _Uia64_getcontext
394ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	.global _Uia64_getcontext
404ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	.proc _Uia64_getcontext
414ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm_Uia64_getcontext:
424ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	.prologue
434ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	alloc rPFS = ar.pfs, 1, 0, 0, 0				// M2
444ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov rPR = pr						// I0, 2 cycles
454ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	add r2 = GR(1), in0					// I1
464ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
474ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
484ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	.save ar.unat, rUNAT
494ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov.m rUNAT = ar.unat					// M2, 5 cycles
504ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	.body
514ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8.spill [r2] = r1, (SC_FLAGS - GR(1))			// M3
524ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	dep.z rFLAGS = -1, IA64_SC_FLAG_SYNCHRONOUS_BIT, 1	// I0, 1 cycle
534ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
544ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
554ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov.m rRSC = ar.rsc					// M2, 12 cyc.
564ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8 [r2] = rFLAGS, (SC_PR  - SC_FLAGS)			// M3
574ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	add r3 = FR(2), in0
584ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
594ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
604ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov.m rBSP = ar.bsp					// M2, 12 cyc.
614ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8 [r2] = rPR, (GR(12) - SC_PR)			// M3
624ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	add r8 = FR(16), in0
634ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
644ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
654ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov.m rFPSR = ar.fpsr					// M2, 12 cyc.
664ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8.spill [r2] = r12, (GR(4) - GR(12))			// M3
674ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	add r9 = FR(24), in0
684ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
694ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
704ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r3] = f2					// M2
714ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r8] = f16					// M3
724ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	add r3 = GR(7), in0
734ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
744ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
754ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	flushrs							// M0
764ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r9] = f24, (FR(31) - FR(24))			// M2
774ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov rB0 = b0						// I0, 2 cycles
784ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
794ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
804ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r9] = f31					// M2
814ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8.spill [r2] = r4, (GR(5) - GR(4))			// M3, bank 1
824ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov rB1 = b1						// I0, 2 cycles
834ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
844ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
854ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm.mem.offset 0,0; st8.spill [r2] = r5, (GR(6) - GR(5))		// M4, bank 0
864ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm.mem.offset 8,0; st8.spill [r3] = r7, (BR(0) - GR(7))		// M3, bank 0
874ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov rB2 = b2						// I0, 2 cycles
884ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
894ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
904ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8.spill [r2] = r6, (BR(1) - GR(6))			// M2, bank 1
914ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8 [r3] = rB0, (BR(4) - BR(0))				// M3, bank 1
924ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov rB4 = b4						// I0, 2 cycles
934ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
944ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
954ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov.m rNAT = ar.unat					// M2, 5 cycles
964ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8 [r2] = rB1, (BR(2) - BR(1))				// M3, bank 0
974ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov rB3 = b3
984ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
994ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
1004ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8 [r2] = rB2, (BR(3) - BR(2))				// M2, bank 1
1014ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8 [r3] = rB4, (SC_LC - BR(4))				// M3, bank 1
1024ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov rB5 = b5						// I0, 2 cycles
1034ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
1044ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
1054ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	and rTMP = ~0x3, rRSC					// M0
1064ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	add rPOS = GR(0), in0	// rPOS <- &sc_gr[0]		// M1
1074ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov.i rLC = ar.lc					// I0, 2 cycles
1084ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
1094ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
1104ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov.m ar.rsc = rTMP	// put RSE into lazy mode	// M2, ? cycles
1114ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8 [r2] = rB3, (BR(5) - BR(3))				// M3, bank 0
1124ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	extr.u rPOS = rPOS, 3, 6 // get NaT bitnr for r0	// I0
1134ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
1144ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
1154ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov.m rRNAT = ar.rnat					// M2, 5 cycles
1164ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8 [r2] = rB5, (SC_PFS - BR(5))			// M3, bank 0
1174ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	sub rCPOS = 64, rPOS					// I0
1184ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
1194ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
1204ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8 [r2] = rPFS, (SC_UNAT - SC_PFS)			// M2
1214ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8 [r3] = rLC, (SC_BSP - SC_LC)			// M3
1224ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	shr.u rTMP = rNAT, rPOS					// I0, 3 cycles
1234ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
1244ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
1254ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8 [r2] = rUNAT, (SC_FPSR - SC_UNAT)			// M2
1264ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8 [r3] = rBSP						// M3
1274ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	add r8 = FR(3), in0
1284ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
1294ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
1304ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8 [r2] = rFPSR, (SC_RNAT - SC_FPSR)			// M2
1314ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r8] = f3, (FR(4) - FR(3))			// M3
1324ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	add r9 = FR(5), in0
1334ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
1344ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
1354ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r8] = f4, (FR(17) - FR(4))			// M2
1364ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r9] = f5, (FR(19) - FR(5))			// M3
1374ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	shl rNAT = rNAT, rCPOS					// I0, 3 cycles
1384ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
1394ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
1404ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8 [r2] = rRNAT, (SC_NAT - SC_RNAT)			// M2
1414ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r8] = f17, (FR(18) - FR(17))			// M3
1424ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	nop.i 0
1434ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
1444ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
1454ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r8] = f18, (FR(20) - FR(18))			// M2
1464ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r9] = f19, (FR(21) - FR(19))			// M3
1474ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	nop.i 0
1484ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
1494ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
1504ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r8] = f20, (FR(22) - FR(20))			// M2
1514ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r9] = f21, (FR(23) - FR(21))			// M3
1524ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	or rNAT = rNAT, rTMP					// I0
1534ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
1544ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm
1554ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	st8 [r2] = rNAT						// M2
1564ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r8] = f22, (FR(25) - FR(22))			// M3
1574ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
1584ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r9] = f23, (FR(26) - FR(23))			// M2
1594ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r8] = f25, (FR(27) - FR(25))			// M3
1604ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
1614ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r9] = f26, (FR(28) - FR(26))			// M2
1624ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r8] = f27, (FR(29) - FR(27))			// M3
1634ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
1644ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov.m ar.rsc = rRSC	// restore RSE mode		// M2
1654ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r9] = f28, (FR(30) - FR(28))			// M3
1664ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
1674ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov.m ar.unat = rUNAT	// restore caller's UNaT	// M2
1684ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r8] = f29					// M3
1694ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	;;
1704ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	stf.spill [r9] = f30					// M2
1714ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	mov r8 = 0
1724ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	br.ret.sptk.many rp
1734ba03baf6aa8bf98d2dea8db775aefbb73a44216homeip.net!davidm	.endp _Uia64_getcontext
17457e569646368cb730f028ecf1732143474e3e642Jan Kratochvil#ifdef __linux__
17557e569646368cb730f028ecf1732143474e3e642Jan Kratochvil	/* We do not need executable stack.  */
17657e569646368cb730f028ecf1732143474e3e642Jan Kratochvil	.section	.note.GNU-stack,"",@progbits
17757e569646368cb730f028ecf1732143474e3e642Jan Kratochvil#endif
178