.text
	.align 5
	.globl rfork_thread
	.ent rfork_thread
rfork_thread:
	.frame sp,16,ra,0
	.mask 0x4000000,-16
	ldgp gp,0(t12)
$rfork_thread..ng:
	lda sp,-16(sp)
	stq ra,0(sp)
	.prologue 1
	ldiq v0, SYS_rfork
	call_pal PAL_OSF1_callsys
	beq v0,$child
	addl v0,zero,v0
	ldq ra,0(sp)
	lda sp,16(sp)
	ret zero,(ra),1
	.align 4
$child:
	mov a1,a0
	mov a0,sp
	lda sp,-16(sp)
	stq zero,0(sp)
	mov a3,a0
	mov a2,t12
	jsr ra,(t12),0
	ldgp gp,0(ra)
	mov v0,a0
	ldiq v0, SYS_exit
	call_pal PAL_OSF1_callsys
	#unreached
	.end rfork_thread