powerpc-sf longjmp clobbering of val argument
[musl.git] / src / thread / m68k / clone.s
blobf6dfa06f49daef59a7e49b2e6525ec5e800fb5c5
1 .text
2 .global __clone
3 .hidden __clone
4 .type __clone,@function
5 __clone:
6 movem.l %d2-%d5,-(%sp)
7 move.l #120,%d0
8 move.l 28(%sp),%d1
9 move.l 24(%sp),%d2
10 and.l #-16,%d2
11 move.l 36(%sp),%d3
12 move.l 44(%sp),%d4
13 move.l 40(%sp),%d5
14 move.l 20(%sp),%a0
15 move.l 32(%sp),%a1
16 trap #0
17 tst.l %d0
18 beq 1f
19 movem.l (%sp)+,%d2-%d5
20 rts
21 1: move.l %a1,-(%sp)
22 jsr (%a0)
23 move.l #1,%d0
24 trap #0
25 clr.b 0