xref: /titanic_41/usr/src/lib/libc/amd64/fp/ieee.c (revision f50942844a53b77ce960c035163810d116c6ec6c)
1*f5094284SDan McDonald /*
2*f5094284SDan McDonald  * CDDL HEADER START
3*f5094284SDan McDonald  *
4*f5094284SDan McDonald  * The contents of this file are subject to the terms of the
5*f5094284SDan McDonald  * Common Development and Distribution License (the "License").
6*f5094284SDan McDonald  * You may not use this file except in compliance with the License.
7*f5094284SDan McDonald  *
8*f5094284SDan McDonald  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9*f5094284SDan McDonald  * or http://www.opensolaris.org/os/licensing.
10*f5094284SDan McDonald  * See the License for the specific language governing permissions
11*f5094284SDan McDonald  * and limitations under the License.
12*f5094284SDan McDonald  *
13*f5094284SDan McDonald  * When distributing Covered Code, include this CDDL HEADER in each
14*f5094284SDan McDonald  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15*f5094284SDan McDonald  * If applicable, add the following below this CDDL HEADER, with the
16*f5094284SDan McDonald  * fields enclosed by brackets "[]" replaced with your own identifying
17*f5094284SDan McDonald  * information: Portions Copyright [yyyy] [name of copyright owner]
18*f5094284SDan McDonald  *
19*f5094284SDan McDonald  * CDDL HEADER END
20*f5094284SDan McDonald  */
21*f5094284SDan McDonald 
22*f5094284SDan McDonald /*
23*f5094284SDan McDonald  * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
24*f5094284SDan McDonald  * Use is subject to license terms.
25*f5094284SDan McDonald  */
26*f5094284SDan McDonald 
27*f5094284SDan McDonald #include "lint.h"
28*f5094284SDan McDonald #include "base_conversion.h"
29*f5094284SDan McDonald #include <sys/isa_defs.h>
30*f5094284SDan McDonald 
31*f5094284SDan McDonald #define	CSR_DEFAULT 0x1f80
32*f5094284SDan McDonald 
33*f5094284SDan McDonald /*
34*f5094284SDan McDonald  * Returns IEEE mode/status and
35*f5094284SDan McDonald  * sets up standard environment for base conversion.
36*f5094284SDan McDonald  */
37*f5094284SDan McDonald void
__get_ieee_flags(__ieee_flags_type * b)38*f5094284SDan McDonald __get_ieee_flags(__ieee_flags_type *b) {
39*f5094284SDan McDonald 	extern void _getmxcsr(), _putmxcsr();
40*f5094284SDan McDonald 
41*f5094284SDan McDonald 	_getmxcsr(&b->status);
42*f5094284SDan McDonald 
43*f5094284SDan McDonald 	/* round-to-nearest, all exceptions masked, gradual underflow */
44*f5094284SDan McDonald 	_putmxcsr(CSR_DEFAULT);
45*f5094284SDan McDonald }
46*f5094284SDan McDonald 
47*f5094284SDan McDonald /*
48*f5094284SDan McDonald  * Restores previous IEEE mode/status
49*f5094284SDan McDonald  */
50*f5094284SDan McDonald void
__set_ieee_flags(__ieee_flags_type * b)51*f5094284SDan McDonald __set_ieee_flags(__ieee_flags_type *b) {
52*f5094284SDan McDonald 	extern void _putmxcsr();
53*f5094284SDan McDonald 
54*f5094284SDan McDonald 	_putmxcsr(b->status);
55*f5094284SDan McDonald }
56