/*	@(#)setregid.s	1.1	SCCS id keyword	*/
/ C library -- setregid

/ error = setgid (gid)
/ error = setrgid (rgid)
/ error = setegid (egid)
/ error = setregid(rgid, egid);

.globl	setgid
.globl	_setrgid
.globl	_setegid
.globl	_setregid
.globl	cerror

_setgid:
	mov	r5,-(sp)
	mov	sp,r5
	mov	4(r5),r0
	mov	r0,r1
	br	0f

_setrgid:
	mov	r5,-(sp)
	mov	sp,r5
	mov	4(r5),r0
	mov	$-1,r1
	br	0f

_setegid:
	mov	r5,-(sp)
	mov	sp,r5
	mov	$-1,r0
	mov	4(r5),r1
	br	0f

_setregid:
	mov	r5,-(sp)
	mov	sp,r5
	mov	4(r5),r0
	mov	6(r5),r1
0:
	sys	local; 9f
	bec	1f
	jmp	cerror
1:
	clr	r0
	mov	(sp)+,r5
	rts	pc
.data
9:
	sys	setregid
.text