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
|
TEXT setjmp(SB), 1, $0
MOVL b+0(FP), A0
MOVL A7, (A0)+
MOVL (A7), (A0)
CLRL R0
RTS
TEXT sigsetjmp(SB), 1, $0
MOVL b+0(FP), A0
MOVW savemask+4(FP), R1
MOVW R1, (A0)+
MOVW $_psigblocked(SB), R1
MOVW R1, (A0)+
MOVL A7, (A0)+
MOVL (A7), (A0)
CLRL R0
RTS
TEXT longjmp(SB), 1, $0
MOVL b+0(FP), A0
MOVL r+4(FP), R0
BNE ok /* ansi: "longjmp(0) => longjmp(1)" */
MOVL $1, R0 /* bless their pointed heads */
ok: MOVL (A0)+, A7
MOVL (A0), (A7)
RTS
|
