1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
//++
//
// Copyright (c) 1993 IBM Corporation and Microsoft Corporation
//
// Module Name:
//
// longjmp.s
//
// Abstract:
//
// This module implements the MIPS specific routine to perform a long
// jump operation.
//
// N.B. This routine conditionally provides UNSAFE handling of longjmp
// which is NOT integrated with structured exception handling. The
// determination is made based on whether an unitialized variable
// has been set to a nonzero value.
//
// Author:
//
// Rick Simpson 13-Oct-1993
//
// based on MIPS version by David N. Cutler (davec) 2-Apr-1993
//
// Environment:
//
// Any mode.
//
// Revision History:
//
//--
//list(off)
#include "ksppc.h"
//list(on)
.extern ..RtlUnwind
//++
//
// int
// longjmp (
// IN jmp_buf JumpBuffer,
// IN int ReturnValue
// )
//
// Routine Description:
//
// This function performs a long jump to the context specified by the
// jump buffer.
//
// Arguments:
//
// JumpBuffer (r.3) - Supplies the address of a jump buffer that contains
// jump information.
//
// ReturnValue (r.4) - Supplies the value that is to be returned to the
// caller of setjmp().
//
// Return Value:
//
// None.
//
//--
LEAF_ENTRY (longjmp)
cmpwi cr.0, r.4, 0 // check return value for 0
lwz r.0, JbType (r.3) // load safe/unsafe switch
cmpwi cr.1, r.0, 0 // check for unsafe
bne cr.0, Lj10 // branch if not trying to return 0
li r.4, 1 // force return value to be non-zero
Lj10: bne cr.1, ...Lj20 // branch if safe form of setjmp/longjmp
//
// Provide unsafe handling of longjmp.
//
lfd f.14, JbFpr14 (r.3) // reload n-v floating point regs
lfd f.15, JbFpr15 (r.3)
lfd f.16, JbFpr16 (r.3)
lfd f.17, JbFpr17 (r.3)
lfd f.18, JbFpr18 (r.3)
lfd f.19, JbFpr19 (r.3)
lfd f.20, JbFpr20 (r.3)
lfd f.21, JbFpr21 (r.3)
lfd f.22, JbFpr22 (r.3)
lfd f.23, JbFpr23 (r.3)
lfd f.24, JbFpr24 (r.3)
lfd f.25, JbFpr25 (r.3)
lfd f.26, JbFpr26 (r.3)
lfd f.27, JbFpr27 (r.3)
lfd f.28, JbFpr28 (r.3)
lfd f.29, JbFpr29 (r.3)
lfd f.30, JbFpr30 (r.3)
lfd f.31, JbFpr31 (r.3)
lwz r.13, JbGpr13 (r.3) // reload n-v general regs
lwz r.14, JbGpr14 (r.3)
lwz r.15, JbGpr15 (r.3)
lwz r.16, JbGpr16 (r.3)
lwz r.17, JbGpr17 (r.3)
lwz r.18, JbGpr18 (r.3)
lwz r.19, JbGpr19 (r.3)
lwz r.20, JbGpr20 (r.3)
lwz r.21, JbGpr21 (r.3)
lwz r.22, JbGpr22 (r.3)
lwz r.23, JbGpr23 (r.3)
lwz r.24, JbGpr24 (r.3)
lwz r.25, JbGpr25 (r.3)
lwz r.26, JbGpr26 (r.3)
lwz r.27, JbGpr27 (r.3)
lwz r.28, JbGpr28 (r.3)
lwz r.29, JbGpr29 (r.3)
lwz r.30, JbGpr30 (r.3)
lwz r.31, JbGpr31 (r.3)
lwz r.5, JbIar (r.3) // get setjmp return address
lwz r.6, JbCr (r.3) // get saved CR
mtlr r.5 // return addr -> LR
lwz r.1, JbGpr1 (r.3) // restore stack pointer
lwz r.2, JbGpr2 (r.3) // restore TOC pointer
mtcrf 0xff,r.6 // saved CR -> CR
mr r.3, r.4 // return value from longjmp()
blr // jump back to setjmp() site
DUMMY_EXIT (longjmp)
//
// Provide safe handling of longjmp.
//
NESTED_ENTRY(.Lj20, STK_MIN_FRAME+8, 0, 0)
PROLOGUE_END(.Lj20)
mr r.6, r.4 // set return value (4th arg)
li r.5, 0 // set exception record address (3rd arg)
lwz r.4, 4 (r.3) // set target instr address (2nd arg)
lwz r.3, 0 (r.3) // set target frame address (1st arg)
bl ..RtlUnwind // finish in common code
.znop ..RtlUnwind
NESTED_EXIT(.Lj20, STK_MIN_FRAME+8, 0, 0)
|
