2N/A/*
2N/A * CDDL HEADER START
2N/A *
2N/A * The contents of this file are subject to the terms of the
2N/A * Common Development and Distribution License (the "License").
2N/A * You may not use this file except in compliance with the License.
2N/A *
2N/A * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
2N/A * or http://www.opensolaris.org/os/licensing.
2N/A * See the License for the specific language governing permissions
2N/A * and limitations under the License.
2N/A *
2N/A * When distributing Covered Code, include this CDDL HEADER in each
2N/A * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
2N/A * If applicable, add the following below this CDDL HEADER, with the
2N/A * fields enclosed by brackets "[]" replaced with your own identifying
2N/A * information: Portions Copyright [yyyy] [name of copyright owner]
2N/A *
2N/A * CDDL HEADER END
2N/A */
2N/A
2N/A/*
2N/A * Copyright 2008 Sun Microsystems, Inc. All rights reserved.
2N/A * Use is subject to license terms.
2N/A */
2N/A
2N/A/* Copyright (c) 1988 AT&T */
2N/A/* All Rights Reserved */
2N/A
2N/A .file "fpsetrnd.s"
2N/A
2N/A#include "SYS.h"
2N/A
2N/A ANSI_PRAGMA_WEAK(fpsetround,function)
2N/A
2N/A ENTRY(fpsetround)
2N/A add %sp, -SA(MINFRAME), %sp ! get an additional word of storage
2N/A set 0xc0000000, %o4 ! mask of round control bits
2N/A sll %o0, 30, %o1 ! move input bits into position
2N/A st %fsr, [%sp+ARGPUSH] ! get fsr value
2N/A ld [%sp+ARGPUSH], %o0 ! load into register
2N/A and %o1, %o4, %o1 ! generate new fsr value
2N/A andn %o0, %o4, %o2
2N/A or %o1, %o2, %o1
2N/A st %o1, [%sp+ARGPUSH] ! move new fsr value to memory
2N/A ld [%sp+ARGPUSH], %fsr ! load fsr with new value
2N/A srl %o0, 30, %o0 ! return old round control value
2N/A retl
2N/A add %sp, SA(MINFRAME), %sp ! reclaim stack space
2N/A
2N/A SET_SIZE(fpsetround)