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
|
{
This file is part of the Free Pascal run time library.
Copyright (c) 2002 by Jonas Maebe and other members of the
Free Pascal development team
SetJmp and LongJmp implementation for exception handling
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{
jmp_buf = packed record
r1, r2, lr,r14,r15,
r16,r17,r18,r19,r20,
r21,r22,r23,r24,r25,
r26,r27,r28,r29,r30,
r31,cr : int64;
// 176
f14,f15,f16,
// 200
f17,f18,f19,f20,f21,
f22,f23,f24,f25,f26,
f27,f28,f29,f30,f31 : double;
end;
pjmp_buf = ^jmp_buf;}
function fpc_setjmp(var S : jmp_buf) : longint;assembler;[Public, alias : 'FPC_SETJMP']; nostackframe; compilerproc;
asm
std r1,0(r3) // store r1
mflr r0
std r2,8(r3) // store r2
std r14,24(r3) // store r14
stfd f14,176(r3) // store f14
std r0,16(r3) // store lr
std r15,32(r3) // store r15
stfd f15,184(r3) // store f15
mfcr r0
std r16,40(r3) // store r16
stfd f16,192(r3) // store f16
stw r0,168(r3) // store cr
std r17,48(r3) // store r17
stfd f17,200(r3) // store f17
std r18,56(r3) // ...
stfd f18,208(r3)
std r19,64(r3)
stfd f19,216(r3)
std r20,72(r3)
stfd f20,224(r3)
std r21,80(r3)
stfd f21,232(r3)
std r22,88(r3)
stfd f22,240(r3)
std r23,96(r3)
stfd f23,248(r3)
std r24,104(r3)
stfd f24,256(r3)
std r25,112(r3)
stfd f25,264(r3)
std r26,120(r3)
stfd f26,272(r3)
std r27,128(r3)
stfd f27,280(r3)
std r28,136(r3)
stfd f28,288(r3)
std r29,144(r3)
stfd f29,296(r3)
std r30,152(r3)
stfd f30,304(r3)
std r31,160(r3)
stfd f31,312(r3)
li r3,0
end;
procedure fpc_longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias : 'FPC_LONGJMP']; nostackframe; compilerproc;
asm
ld r1,0(r3) // load r1
ld r2,8(r3) // load r2
ld r0,16(r3) // load lr
ld r14,24(r3) // load r14
lfd f14,176(r3)
ld r15,32(r3) // load r15
lfd f15,184(r3)
ld r16,40(r3)
lfd f16,192(r3)
ld r17,48(r3)
lfd f17,200(r3)
ld r18,56(r3)
lfd f18,208(r3)
ld r19,64(r3)
lfd f19,216(r3)
ld r20,72(r3)
lfd f20,224(r3)
mtlr r0
ld r21,80(r3)
lfd f21,232(r3)
ld r22,88(r3)
lfd f22,240(r3)
lwz r0,168(r3)
ld r23,96(r3)
lfd f23,248(r3)
ld r24,104(r3)
lfd f24,256(r3)
ld r25,112(r3)
lfd f25,264(r3)
mtcrf 0xff,r0
ld r26,120(r3)
lfd f26,272(r3)
ld r27,128(r3)
lfd f27,280(r3)
ld r28,136(r3)
lfd f28,288(r3)
ld r29,144(r3)
lfd f29,296(r3)
ld r30,152(r3)
lfd f30,304(r3)
ld r31,160(r3)
lfd f31,312(r3)
mr r3,r4
end;
|
