/*

 * CDDL HEADER START

 *

 * The contents of this file are subject to the terms of the

 * Common Development and Distribution License (the "License").

 * You may not use this file except in compliance with the License.

 *

 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE

 * or http://www.opensolaris.org/os/licensing.

 * See the License for the specific language governing permissions

 * and limitations under the License.

 *

 * When distributing Covered Code, include this CDDL HEADER in each

 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.

 * If applicable, add the following below this CDDL HEADER, with the

 * fields enclosed by brackets "[]" replaced with your own identifying

 * information: Portions Copyright [yyyy] [name of copyright owner]

 *

 * CDDL HEADER END

 */

/*

 * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.

 * Use is subject to license terms.

 */

/*	Copyright (c) 1988 AT&T	*/

/*	  All Rights Reserved	*/

#include "SYS.h"

	ANSI_PRAGMA_WEAK(fpsetround,function)

	ENTRY(fpsetround)

	add	%sp, -SA(MINFRAME), %sp	! get an additional word of storage

	set	0xc0000000, %o4		! mask of round control bits

	sll	%o0, 30, %o1		! move input bits into position

	st	%fsr, [%sp+STACK_BIAS+ARGPUSH]	! get fsr value

	ld	[%sp+STACK_BIAS+ARGPUSH], %o0	! load into register

	and	%o1, %o4, %o1		! generate new fsr value

	andn	%o0, %o4, %o2

	or	%o1, %o2, %o1

	st	%o1, [%sp+STACK_BIAS+ARGPUSH]	! move new fsr value to memory

	ld	[%sp+STACK_BIAS+ARGPUSH], %fsr	! load fsr with new value

	srl	%o0, 30, %o0		! return old round control value

	retl

	add	%sp, SA(MINFRAME), %sp	! reclaim stack space

	SET_SIZE(fpsetround)