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) 1990, 1991 UNIX System Laboratories, Inc. */
2N/A/* Copyright (c) 1988 AT&T */
2N/A/* All Rights Reserved */
2N/A
2N/A#pragma ident "%Z%%M% %I% %E% SMI"
2N/A
2N/A#pragma weak _fpsetround = fpsetround
2N/A
2N/A#include "lint.h"
2N/A#include <ieeefp.h>
2N/A#include "fp.h"
2N/A
2N/Aextern int _sse_hw;
2N/Aextern void _getmxcsr(int *), _putmxcsr(int);
2N/A
2N/Afp_rnd
2N/Afpsetround(fp_rnd newrnd)
2N/A{
2N/A struct _cw87 cw;
2N/A fp_rnd oldrnd;
2N/A int mxcsr;
2N/A extern int __flt_rounds; /* ANSI value for rounding */
2N/A
2N/A newrnd &= 0x3; /* mask off all ubt last 2 bits */
2N/A switch (newrnd) { /* set ANSI rounding mode */
2N/A case FP_RN: __flt_rounds = 1;
2N/A break;
2N/A case FP_RM: __flt_rounds = 3;
2N/A break;
2N/A case FP_RP: __flt_rounds = 2;
2N/A break;
2N/A case FP_RZ: __flt_rounds = 0;
2N/A break;
2N/A };
2N/A _getcw(&cw);
2N/A oldrnd = (fp_rnd)cw.rnd;
2N/A cw.rnd = newrnd;
2N/A _putcw(cw);
2N/A if (_sse_hw) {
2N/A _getmxcsr(&mxcsr);
2N/A mxcsr = (mxcsr & ~0x6000) | ((int)newrnd << 13);
2N/A _putmxcsr(mxcsr);
2N/A }
2N/A return (oldrnd);
2N/A}